Changeset 1345 for LMDZ4/trunk


Ignore:
Timestamp:
Apr 12, 2010, 11:20:11 AM (15 years ago)
Author:
Laurent Fairhead
Message:
  • Error in variable dimension in pres2lev.F90
  • Some aerosol variables are output but were not calculated. A test is included

in phys_output_write.h

  • Erreur dans la dimension d'une variable dans pres2lev.F90
  • Des variables "aérosol" sont sorties alors qu'elles ne sont pas calculées. Un

test est inclus dans phys_output_write.h

ACo

Location:
LMDZ4/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3dpar/pres2lev.F90

    r1279 r1345  
    3131  REAL, INTENT(OUT) :: varn(ni*nj,lmn) ! var dans la nouvelle grille
    3232
    33   REAL :: zvaro(ni*nj,lmo),zpo(ni*nj,lmn)
     33  REAL :: zvaro(ni*nj,lmo),zpo(ni*nj,lmo)
    3434
    3535! Autres variables

  • LMDZ4/trunk/libf/phylmd/phys_output_write.h

    r1337 r1345  
    914914! OD550 per species
    915915      IF (new_aod .and. (.not. aerosol_couple)) THEN
     916          IF (ok_ade.OR.ok_aie) THEN
    916917
    917918          IF (o_od550aer%flag(iff)<=lev_files(iff)) THEN
    … …  
    932933          ENDIF
    933934
    934         IF (o_sconcso4%flag(iff)<=lev_files(iff)) THEN
    935         CALL histwrite_phy(nid_files(iff),o_sconcso4%name,itau_w,
    936      $       sconcso4)
    937         ENDIF
    938         IF (o_sconcoa%flag(iff)<=lev_files(iff)) THEN
    939         CALL histwrite_phy(nid_files(iff),o_sconcoa%name,itau_w,
    940      $       sconcoa)
    941         ENDIF
    942         IF (o_sconcbc%flag(iff)<=lev_files(iff)) THEN
    943         CALL histwrite_phy(nid_files(iff),o_sconcbc%name,itau_w,
    944      $       sconcbc)
    945         ENDIF
    946         IF (o_sconcss%flag(iff)<=lev_files(iff)) THEN
    947         CALL histwrite_phy(nid_files(iff),o_sconcss%name,itau_w,
    948      $       sconcss)
    949         ENDIF
    950         IF (o_sconcdust%flag(iff)<=lev_files(iff)) THEN
    951         CALL histwrite_phy(nid_files(iff),o_sconcdust%name,itau_w,
    952      $       sconcdust)
    953         ENDIF
    954 
    955         IF (o_concso4%flag(iff)<=lev_files(iff)) THEN
    956         CALL histwrite_phy(nid_files(iff),o_concso4%name,itau_w,
    957      $       concso4)
    958         ENDIF
    959         IF (o_concoa%flag(iff)<=lev_files(iff)) THEN
    960         CALL histwrite_phy(nid_files(iff),o_concoa%name,itau_w,
    961      $       concoa)
    962         ENDIF
    963         IF (o_concbc%flag(iff)<=lev_files(iff)) THEN
    964         CALL histwrite_phy(nid_files(iff),o_concbc%name,itau_w,
    965      $       concbc)
    966         ENDIF
    967         IF (o_concss%flag(iff)<=lev_files(iff)) THEN
    968         CALL histwrite_phy(nid_files(iff),o_concss%name,itau_w,
    969      $       concss)
    970         ENDIF
    971         IF (o_concdust%flag(iff)<=lev_files(iff)) THEN
    972         CALL histwrite_phy(nid_files(iff),o_concdust%name,itau_w,
    973      $       concdust)
    974         ENDIF
    975 
    976         IF (o_loadso4%flag(iff)<=lev_files(iff)) THEN
    977         CALL histwrite_phy(nid_files(iff),o_loadso4%name,itau_w,
    978      $       loadso4)
    979         ENDIF
    980         IF (o_loadoa%flag(iff)<=lev_files(iff)) THEN
    981         CALL histwrite_phy(nid_files(iff),o_loadoa%name,itau_w,
    982      $       loadoa)
    983         ENDIF
    984         IF (o_loadbc%flag(iff)<=lev_files(iff)) THEN
    985         CALL histwrite_phy(nid_files(iff),o_loadbc%name,itau_w,
    986      $       loadbc)
    987         ENDIF
    988         IF (o_loadss%flag(iff)<=lev_files(iff)) THEN
    989         CALL histwrite_phy(nid_files(iff),o_loadss%name,itau_w,
    990      $       loadss)
    991         ENDIF
    992         IF (o_loaddust%flag(iff)<=lev_files(iff)) THEN
    993         CALL histwrite_phy(nid_files(iff),o_loaddust%name,itau_w,
    994      $       loaddust)
    995         ENDIF
    996 
    997       DO naero = 1, naero_spc
    998           IF (o_tausumaero(naero)%flag(iff)<=lev_files(iff)) THEN
    999              CALL histwrite_phy(nid_files(iff),
    1000      $            o_tausumaero(naero)%name,itau_w,
    1001      $            tausum_aero(:,2,naero) )
    1002           ENDIF
    1003       END DO
    1004       ENDIF
    1005 
     935          IF (o_sconcso4%flag(iff)<=lev_files(iff)) THEN
     936              CALL histwrite_phy(nid_files(iff),o_sconcso4%name,itau_w,
     937     $            sconcso4)
     938          ENDIF
     939          IF (o_sconcoa%flag(iff)<=lev_files(iff)) THEN
     940              CALL histwrite_phy(nid_files(iff),o_sconcoa%name,itau_w,
     941     $            sconcoa)
     942          ENDIF
     943          IF (o_sconcbc%flag(iff)<=lev_files(iff)) THEN
     944              CALL histwrite_phy(nid_files(iff),o_sconcbc%name,itau_w,
     945     $            sconcbc)
     946          ENDIF
     947          IF (o_sconcss%flag(iff)<=lev_files(iff)) THEN
     948              CALL histwrite_phy(nid_files(iff),o_sconcss%name,itau_w,
     949     $            sconcss)
     950          ENDIF
     951          IF (o_sconcdust%flag(iff)<=lev_files(iff)) THEN
     952              CALL histwrite_phy(nid_files(iff),o_sconcdust%name,itau_w,
     953     $            sconcdust)
     954          ENDIF
     955         
     956          IF (o_concso4%flag(iff)<=lev_files(iff)) THEN
     957              CALL histwrite_phy(nid_files(iff),o_concso4%name,itau_w,
     958     $            concso4)
     959          ENDIF
     960          IF (o_concoa%flag(iff)<=lev_files(iff)) THEN
     961              CALL histwrite_phy(nid_files(iff),o_concoa%name,itau_w,
     962     $            concoa)
     963          ENDIF
     964          IF (o_concbc%flag(iff)<=lev_files(iff)) THEN
     965              CALL histwrite_phy(nid_files(iff),o_concbc%name,itau_w,
     966     $            concbc)
     967          ENDIF
     968          IF (o_concss%flag(iff)<=lev_files(iff)) THEN
     969              CALL histwrite_phy(nid_files(iff),o_concss%name,itau_w,
     970     $            concss)
     971          ENDIF
     972          IF (o_concdust%flag(iff)<=lev_files(iff)) THEN
     973              CALL histwrite_phy(nid_files(iff),o_concdust%name,itau_w,
     974     $            concdust)
     975          ENDIF
     976         
     977          IF (o_loadso4%flag(iff)<=lev_files(iff)) THEN
     978              CALL histwrite_phy(nid_files(iff),o_loadso4%name,itau_w,
     979     $            loadso4)
     980          ENDIF
     981          IF (o_loadoa%flag(iff)<=lev_files(iff)) THEN
     982              CALL histwrite_phy(nid_files(iff),o_loadoa%name,itau_w,
     983     $            loadoa)
     984          ENDIF
     985          IF (o_loadbc%flag(iff)<=lev_files(iff)) THEN
     986              CALL histwrite_phy(nid_files(iff),o_loadbc%name,itau_w,
     987     $            loadbc)
     988          ENDIF
     989          IF (o_loadss%flag(iff)<=lev_files(iff)) THEN
     990              CALL histwrite_phy(nid_files(iff),o_loadss%name,itau_w,
     991     $            loadss)
     992          ENDIF
     993          IF (o_loaddust%flag(iff)<=lev_files(iff)) THEN
     994              CALL histwrite_phy(nid_files(iff),o_loaddust%name,itau_w,
     995     $            loaddust)
     996          ENDIF
     997         
     998          DO naero = 1, naero_spc
     999            IF (o_tausumaero(naero)%flag(iff)<=lev_files(iff)) THEN
     1000                CALL histwrite_phy(nid_files(iff),
     1001     $              o_tausumaero(naero)%name,itau_w,
     1002     $              tausum_aero(:,2,naero) )
     1003            ENDIF
     1004          END DO
     1005          endif
     1006      ENDIF
     1007     
    10061008       IF (ok_ade) THEN
    10071009          IF (o_topswad%flag(iff)<=lev_files(iff)) THEN
Note: See TracChangeset for help on using the changeset viewer.