calcs_biomass.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\calcs_biomass.f
00002 !
00037                       SUBROUTINE CALCS_BIOMASS
00038 !                    **********************
00039 !
00040 !
00041 !***********************************************************************
00042 ! TELEMAC2D   V7P0                                        21/09/2014
00043 !***********************************************************************
00044 !
00045 !
00046 !
00047 
00048 !
00049       IMPLICIT NONE
00050       INTEGER LNG,LU
00051       COMMON/INFO/LNG,LU
00052 !
00053 !
00054 !
00055       IF(LNG.EQ.1)THEN
00056         WRITE(LU,*) 'BIOMASS: NOT IMPLEMENTED YET'
00057       ELSE
00058         WRITE(LU,*) 'BIOMASS: NOT IMPLEMENTED YET'
00059       ENDIF
00060       CALL PLANTE(1)
00061       STOP
00062 
00063 
00064 !
00065 !
00066 !-----------------------------------------------------------------------
00067 !
00068       RETURN
00069       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0