Changeset 1304 for LMDZ4


Ignore:
Timestamp:
Jan 25, 2010, 4:01:16 PM (15 years ago)
Author:
musat
Message:

Bug correction for the vertical dimension in the calling routine for the latitude inversion of nudging fields
FC/IM

Location:
LMDZ4/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/dyn3d/guide_mod.F90

    r1279 r1304  
    10821082#endif
    10831083         IF (invert_y) THEN
    1084            CALL invert_lat(iip1,jjp1,llm,unat2)
     1084           CALL invert_lat(iip1,jjp1,nlevnc,unat2)
    10851085         ENDIF
    10861086     endif
     
    10941094#endif
    10951095         IF (invert_y) THEN
    1096            CALL invert_lat(iip1,jjp1,llm,tnat2)
     1096           CALL invert_lat(iip1,jjp1,nlevnc,tnat2)
    10971097         ENDIF
    10981098     endif
     
    11061106#endif
    11071107         IF (invert_y) THEN
    1108            CALL invert_lat(iip1,jjp1,llm,qnat2)
     1108           CALL invert_lat(iip1,jjp1,nlevnc,qnat2)
    11091109         ENDIF
    11101110         
     
    11201120#endif
    11211121         IF (invert_y) THEN
    1122            CALL invert_lat(iip1,jjm,llm,vnat2)
     1122           CALL invert_lat(iip1,jjm,nlevnc,vnat2)
    11231123         ENDIF
    11241124     endif
     
    12691269
    12701270         IF (invert_y) THEN
    1271            CALL invert_lat(iip1,jjp1,llm,unat2)
     1271           CALL invert_lat(iip1,jjp1,nlevnc,unat2)
    12721272         ENDIF
    12731273
     
    12861286
    12871287         IF (invert_y) THEN
    1288            CALL invert_lat(iip1,jjp1,llm,tnat2)
     1288           CALL invert_lat(iip1,jjp1,nlevnc,tnat2)
    12891289         ENDIF
    12901290
     
    13031303
    13041304         IF (invert_y) THEN
    1305            CALL invert_lat(iip1,jjp1,llm,qnat2)
     1305           CALL invert_lat(iip1,jjp1,nlevnc,qnat2)
    13061306         ENDIF
    13071307
     
    13211321
    13221322         IF (invert_y) THEN
    1323            CALL invert_lat(iip1,jjm,llm,vnat2)
     1323           CALL invert_lat(iip1,jjm,nlevnc,vnat2)
    13241324         ENDIF
    13251325
  • LMDZ4/trunk/libf/dyn3dpar/guide_p_mod.F90

    r1279 r1304  
    11601160#endif
    11611161         IF (invert_y) THEN
    1162            CALL invert_lat(iip1,jjp1,llm,unat2)
     1162           CALL invert_lat(iip1,jjp1,nlevnc,unat2)
    11631163         ENDIF
    11641164
     
    11731173#endif
    11741174         IF (invert_y) THEN
    1175            CALL invert_lat(iip1,jjp1,llm,tnat2)
     1175           CALL invert_lat(iip1,jjp1,nlevnc,tnat2)
    11761176         ENDIF
    11771177     endif
     
    11851185#endif
    11861186         IF (invert_y) THEN
    1187            CALL invert_lat(iip1,jjp1,llm,qnat2)
     1187           CALL invert_lat(iip1,jjp1,nlevnc,qnat2)
    11881188         ENDIF
    11891189
     
    11991199#endif
    12001200         IF (invert_y) THEN
    1201            CALL invert_lat(iip1,jjm,llm,vnat2)
     1201           CALL invert_lat(iip1,jjm,nlevnc,vnat2)
    12021202         ENDIF
    12031203     endif
     
    13481348
    13491349         IF (invert_y) THEN
    1350            CALL invert_lat(iip1,jjp1,llm,unat2)
     1350           CALL invert_lat(iip1,jjp1,nlevnc,unat2)
    13511351         ENDIF
    13521352
     
    13651365
    13661366         IF (invert_y) THEN
    1367            CALL invert_lat(iip1,jjp1,llm,tnat2)
     1367           CALL invert_lat(iip1,jjp1,nlevnc,tnat2)
    13681368         ENDIF
    13691369
     
    13821382         
    13831383         IF (invert_y) THEN
    1384            CALL invert_lat(iip1,jjp1,llm,qnat2)
     1384           CALL invert_lat(iip1,jjp1,nlevnc,qnat2)
    13851385         ENDIF
    13861386
     
    14001400
    14011401         IF (invert_y) THEN
    1402            CALL invert_lat(iip1,jjm,llm,vnat2)
     1402           CALL invert_lat(iip1,jjm,nlevnc,vnat2)
    14031403         ENDIF
    14041404
Note: See TracChangeset for help on using the changeset viewer.