- Timestamp:
- Apr 15, 2015, 6:49:07 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/initphysto.F90
r3809 r3814 8 8 USE IOIPSL 9 9 USE iophy 10 USE control_ mod10 USE control_phy_mod 11 11 USE indice_sol_mod 12 12 USE comconst_phy_mod 13 USE temps_phy_mod 13 14 IMPLICIT NONE 14 15 … … 40 41 ! Declarations 41 42 INCLUDE "dimensions.h" 42 INCLUDE "paramet.h"43 INCLUDE "comconst.h"44 INCLUDE "comgeom.h"45 INCLUDE "temps.h"46 INCLUDE "logic.h"47 43 INCLUDE "description.h" 48 INCLUDE "serre.h"49 44 50 45 ! Arguments … … 71 66 ! Initialisations 72 67 ! 73 pi = 4. * ATAN (1.)74 68 ok_sync= .TRUE. 75 69 !
Note: See TracChangeset
for help on using the changeset viewer.