Changeset 2598 for LMDZ5/trunk/libf/dyn3dpar/guide_p_mod.F90
- Timestamp:
- Jul 22, 2016, 11:28:39 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dpar/guide_p_mod.F90
r2597 r2598 68 68 SUBROUTINE guide_init 69 69 70 USE control_mod 70 USE control_mod, ONLY: day_step 71 USE serre_mod, ONLY: grossismx 71 72 72 73 IMPLICIT NONE … … 75 76 INCLUDE "paramet.h" 76 77 INCLUDE "netcdf.inc" 77 78 ! For grossismx:79 include "serre.h"80 78 81 79 INTEGER :: error,ncidpl,rid,rcod … … 1101 1099 1102 1100 use comconst_mod, only: pi 1101 use serre_mod, only: clat, clon, grossismx, grossismy 1103 1102 1104 1103 implicit none … … 1107 1106 include "paramet.h" 1108 1107 include "comgeom2.h" 1109 include "serre.h"1110 1108 1111 1109 ! input arguments :
Note: See TracChangeset
for help on using the changeset viewer.