Changeset 1604 for LMDZ5/trunk/libf/phylmd/physiq.F
- Timestamp:
- Dec 22, 2011, 12:26:02 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/physiq.F
r1565 r1604 1220 1220 INTEGER :: nbtr_tmp ! Number of tracer inside concvl 1221 1221 REAL, dimension(klon,klev) :: sh_in ! Specific humidity entering in phytrac 1222 integer iostat 1222 1223 1223 1224 cIM for NMC files … … 1508 1509 nCFMIP=npCFMIP 1509 1510 OPEN(98,file='npCFMIP_param.data',status='old', 1510 $ form='formatted',err=999) 1511 $ form='formatted',iostat=iostat) 1512 if (iostat == 0) then 1511 1513 READ(98,*,end=998) nCFMIP 1512 1514 998 CONTINUE … … 1540 1542 $tabijGCM, lonGCM, latGCM, iGCM, jGCM) 1541 1543 c 1542 999 CONTINUE 1544 else 1545 ALLOCATE(tabijGCM(0)) 1546 ALLOCATE(lonGCM(0), latGCM(0)) 1547 ALLOCATE(iGCM(0), jGCM(0)) 1548 end if 1543 1549 ENDIF !debut 1544 1550
Note: See TracChangeset
for help on using the changeset viewer.