- Timestamp:
- Jan 25, 2010, 4:01:16 PM (15 years ago)
- Location:
- LMDZ4/trunk/libf
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3d/guide_mod.F90
r1279 r1304 1082 1082 #endif 1083 1083 IF (invert_y) THEN 1084 CALL invert_lat(iip1,jjp1, llm,unat2)1084 CALL invert_lat(iip1,jjp1,nlevnc,unat2) 1085 1085 ENDIF 1086 1086 endif … … 1094 1094 #endif 1095 1095 IF (invert_y) THEN 1096 CALL invert_lat(iip1,jjp1, llm,tnat2)1096 CALL invert_lat(iip1,jjp1,nlevnc,tnat2) 1097 1097 ENDIF 1098 1098 endif … … 1106 1106 #endif 1107 1107 IF (invert_y) THEN 1108 CALL invert_lat(iip1,jjp1, llm,qnat2)1108 CALL invert_lat(iip1,jjp1,nlevnc,qnat2) 1109 1109 ENDIF 1110 1110 … … 1120 1120 #endif 1121 1121 IF (invert_y) THEN 1122 CALL invert_lat(iip1,jjm, llm,vnat2)1122 CALL invert_lat(iip1,jjm,nlevnc,vnat2) 1123 1123 ENDIF 1124 1124 endif … … 1269 1269 1270 1270 IF (invert_y) THEN 1271 CALL invert_lat(iip1,jjp1, llm,unat2)1271 CALL invert_lat(iip1,jjp1,nlevnc,unat2) 1272 1272 ENDIF 1273 1273 … … 1286 1286 1287 1287 IF (invert_y) THEN 1288 CALL invert_lat(iip1,jjp1, llm,tnat2)1288 CALL invert_lat(iip1,jjp1,nlevnc,tnat2) 1289 1289 ENDIF 1290 1290 … … 1303 1303 1304 1304 IF (invert_y) THEN 1305 CALL invert_lat(iip1,jjp1, llm,qnat2)1305 CALL invert_lat(iip1,jjp1,nlevnc,qnat2) 1306 1306 ENDIF 1307 1307 … … 1321 1321 1322 1322 IF (invert_y) THEN 1323 CALL invert_lat(iip1,jjm, llm,vnat2)1323 CALL invert_lat(iip1,jjm,nlevnc,vnat2) 1324 1324 ENDIF 1325 1325 -
LMDZ4/trunk/libf/dyn3dpar/guide_p_mod.F90
r1279 r1304 1160 1160 #endif 1161 1161 IF (invert_y) THEN 1162 CALL invert_lat(iip1,jjp1, llm,unat2)1162 CALL invert_lat(iip1,jjp1,nlevnc,unat2) 1163 1163 ENDIF 1164 1164 … … 1173 1173 #endif 1174 1174 IF (invert_y) THEN 1175 CALL invert_lat(iip1,jjp1, llm,tnat2)1175 CALL invert_lat(iip1,jjp1,nlevnc,tnat2) 1176 1176 ENDIF 1177 1177 endif … … 1185 1185 #endif 1186 1186 IF (invert_y) THEN 1187 CALL invert_lat(iip1,jjp1, llm,qnat2)1187 CALL invert_lat(iip1,jjp1,nlevnc,qnat2) 1188 1188 ENDIF 1189 1189 … … 1199 1199 #endif 1200 1200 IF (invert_y) THEN 1201 CALL invert_lat(iip1,jjm, llm,vnat2)1201 CALL invert_lat(iip1,jjm,nlevnc,vnat2) 1202 1202 ENDIF 1203 1203 endif … … 1348 1348 1349 1349 IF (invert_y) THEN 1350 CALL invert_lat(iip1,jjp1, llm,unat2)1350 CALL invert_lat(iip1,jjp1,nlevnc,unat2) 1351 1351 ENDIF 1352 1352 … … 1365 1365 1366 1366 IF (invert_y) THEN 1367 CALL invert_lat(iip1,jjp1, llm,tnat2)1367 CALL invert_lat(iip1,jjp1,nlevnc,tnat2) 1368 1368 ENDIF 1369 1369 … … 1382 1382 1383 1383 IF (invert_y) THEN 1384 CALL invert_lat(iip1,jjp1, llm,qnat2)1384 CALL invert_lat(iip1,jjp1,nlevnc,qnat2) 1385 1385 ENDIF 1386 1386 … … 1400 1400 1401 1401 IF (invert_y) THEN 1402 CALL invert_lat(iip1,jjm, llm,vnat2)1402 CALL invert_lat(iip1,jjm,nlevnc,vnat2) 1403 1403 ENDIF 1404 1404
Note: See TracChangeset
for help on using the changeset viewer.