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

File:
1 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
Note: See TracChangeset for help on using the changeset viewer.