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/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.