Changeset 1658 for LMDZ5/trunk/libf/dyn3dmem/guide_p_mod.F90
- Timestamp:
- Oct 5, 2012, 9:56:56 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dmem/guide_p_mod.F90
r1632 r1658 390 390 stop 391 391 ELSE 392 IF (guide_v) vnat1( jjb_v:jje_v,:,:)=vnat2(jjb_v:jje_v,:,:)393 IF (guide_u) unat1( jjb_u:jje_u,:,:)=unat2(jjb_u:jje_u,:,:)394 IF (guide_T) tnat1( jjb_u:jje_u,:,:)=tnat2(jjb_u:jje_u,:,:)395 IF (guide_Q) qnat1( jjb_u:jje_u,:,:)=qnat2(jjb_u:jje_u,:,:)396 IF (guide_P.OR.guide_modele) psnat1( jjb_u:jje_u,:)=psnat2(jjb_u:jje_u,:)392 IF (guide_v) vnat1(:,jjb_v:jje_v,:)=vnat2(:,jjb_v:jje_v,:) 393 IF (guide_u) unat1(:,jjb_u:jje_u,:)=unat2(:,jjb_u:jje_u,:) 394 IF (guide_T) tnat1(:,jjb_u:jje_u,:)=tnat2(:,jjb_u:jje_u,:) 395 IF (guide_Q) qnat1(:,jjb_u:jje_u,:)=qnat2(:,jjb_u:jje_u,:) 396 IF (guide_P.OR.guide_modele) psnat1(:,jjb_u:jje_u)=psnat2(:,jjb_u:jje_u) 397 397 step_rea=step_rea+1 398 398 itau_test=itau … … 1176 1176 #endif 1177 1177 IF (invert_y) THEN 1178 CALL invert_lat(iip1,jjp1, llm,unat2)1178 CALL invert_lat(iip1,jjp1,nlevnc,unat2) 1179 1179 ENDIF 1180 1180 … … 1189 1189 #endif 1190 1190 IF (invert_y) THEN 1191 CALL invert_lat(iip1,jjp1, llm,tnat2)1191 CALL invert_lat(iip1,jjp1,nlevnc,tnat2) 1192 1192 ENDIF 1193 1193 endif … … 1201 1201 #endif 1202 1202 IF (invert_y) THEN 1203 CALL invert_lat(iip1,jjp1, llm,qnat2)1203 CALL invert_lat(iip1,jjp1,nlevnc,qnat2) 1204 1204 ENDIF 1205 1205 … … 1215 1215 #endif 1216 1216 IF (invert_y) THEN 1217 CALL invert_lat(iip1,jjm, llm,vnat2)1217 CALL invert_lat(iip1,jjm,nlevnc,vnat2) 1218 1218 ENDIF 1219 1219 endif … … 1364 1364 1365 1365 IF (invert_y) THEN 1366 CALL invert_lat(iip1,jjp1, llm,unat2)1366 CALL invert_lat(iip1,jjp1,nlevnc,unat2) 1367 1367 ENDIF 1368 1368 … … 1381 1381 1382 1382 IF (invert_y) THEN 1383 CALL invert_lat(iip1,jjp1, llm,tnat2)1383 CALL invert_lat(iip1,jjp1,nlevnc,tnat2) 1384 1384 ENDIF 1385 1385 … … 1398 1398 1399 1399 IF (invert_y) THEN 1400 CALL invert_lat(iip1,jjp1, llm,qnat2)1400 CALL invert_lat(iip1,jjp1,nlevnc,qnat2) 1401 1401 ENDIF 1402 1402 … … 1416 1416 1417 1417 IF (invert_y) THEN 1418 CALL invert_lat(iip1,jjm, llm,vnat2)1418 CALL invert_lat(iip1,jjm,nlevnc,vnat2) 1419 1419 ENDIF 1420 1420
Note: See TracChangeset
for help on using the changeset viewer.