Changeset 1279 for LMDZ4/trunk/libf/dyn3dpar/limit_netcdf.F
- Timestamp:
- Dec 10, 2009, 10:02:56 AM (15 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
/LMDZ4/branches/LMDZ4-dev merged: 1150-1162,1164-1193,1195-1231,1234-1235,1237-1240,1242-1274,1276
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/dyn3dpar/limit_netcdf.F
r1012 r1279 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 C 5 5 C 6 6 SUBROUTINE limit_netcdf(interbar, extrap, oldice, masque) 7 #ifdef CPP_EARTH 8 ! This routine is designed to work for Earth 7 9 USE dimphy 8 10 use phys_state_var_mod , ONLY : pctsrf … … 33 35 cy#include "dimphy.h" 34 36 #include "indicesol.h" 37 #include "iniprint.h" 35 38 c 36 39 c----------------------------------------------------------------------- … … 403 406 ENDDO 404 407 405 PRINT 222, timeyear 408 PRINT 222, timeyear(:lmdep) 406 409 222 FORMAT(2x,' Time year ',10f6.1) 407 410 c … … 620 623 timeyear(l) = tmidmonth(l) 621 624 ENDDO 622 PRINT 222, timeyear 625 PRINT 222, timeyear(:lmdep) 623 626 c 624 627 PRINT*, 'Interpolation temporelle' … … 939 942 timeyear(l) = tmidmonth(l) 940 943 ENDDO 941 print 222, timeyear 944 print 222, timeyear(:lmdep) 942 945 c 943 946 C interpolation temporelle … … 1134 1137 timeyear(l) = timecoord(l) 1135 1138 ENDDO 1136 print 222, timeyear 1139 print 222, timeyear(:lmdep) 1137 1140 c 1138 1141 C interpolation temporelle … … 1323 1326 ierr = NF_CLOSE(nid) 1324 1327 c 1328 #else 1329 WRITE(lunout,*) 1330 & 'limit_netcdf: Earth-specific routine, needs Earth physics' 1331 #endif 1332 ! of #ifdef CPP_EARTH 1325 1333 STOP 1326 1334 END
Note: See TracChangeset
for help on using the changeset viewer.