Changeset 779
- Timestamp:
- Jun 7, 2007, 2:01:57 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/phyetat0.F
r776 r779 36 36 INTEGER radpas 37 37 REAL rlat_p(klon), rlon_p(klon) 38 REAL rlat_p(klon2), rlon_p(klon2)39 38 REAL co2_ppm_etat0 40 39 REAL solaire_etat0 … … 160 159 ENDIF 161 160 #ifdef NC_DOUBLE 162 ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tab_cntrl _omp)163 #else 164 ierr = NF_GET_VAR_REAL(nid, nvarid, tab_cntrl _omp)161 ierr = NF_GET_VAR_DOUBLE(nid, nvarid, tab_cntrl) 162 #else 163 ierr = NF_GET_VAR_REAL(nid, nvarid, tab_cntrl) 165 164 #endif 166 165 IF (ierr.NE.NF_NOERR) THEN
Note: See TracChangeset
for help on using the changeset viewer.