Ignore:
Timestamp:
Jan 20, 2023, 3:41:14 PM (17 months ago)
Author:
idelkadi
Message:

Code cleanup:

  • Removal of unnecessary arguments in the LMDZ-ECRAD interface routine.
  • deletion of useless comments
File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/radiation_scheme.F90

    r4188 r4388  
    1616     &  IDAY, TIME, &
    1717     &  PSOLAR_IRRADIANCE, &
    18      &  PMU0, PTEMPERATURE_SKIN, PALBEDO_DIF, PALBEDO_DIR, &
     18     &  PMU0, PTEMPERATURE_SKIN, &
     19     &  PALBEDO_DIF, PALBEDO_DIR, &
    1920     &  PEMIS, PEMIS_WINDOW, &
    20      &  PCCN_LAND, PCCN_SEA, &
    21      &  PGELAM, PGEMU, PLAND_SEA_MASK, &
    22      &  PPRESSURE, PTEMPERATURE, &
     21     &  PGELAM, PGEMU, &
    2322     &  PPRESSURE_H, PTEMPERATURE_H, PQ, PQSAT, &
    2423     &  PCO2, PCH4, PN2O, PNO2, PCFC11, PCFC12, PHCFC22, &
    2524     &  PCCL4, PO3, PO2, &
    26      &  PCLOUD_FRAC, PQ_LIQUID, PQ_ICE, PQ_RAIN, PQ_SNOW, &
     25     &  PCLOUD_FRAC, PQ_LIQUID, PQ_ICE, PQ_SNOW, &
    2726     &  ZRE_LIQUID_UM, ZRE_ICE_UM, &
    2827     &  PAEROSOL_OLD, PAEROSOL, &
     
    140139REAL(KIND=JPRB),   INTENT(IN) :: PGEMU(KLON)
    141140! Land-sea mask
    142 REAL(KIND=JPRB),   INTENT(IN) :: PLAND_SEA_MASK(KLON)
     141!REAL(KIND=JPRB),   INTENT(IN) :: PLAND_SEA_MASK(KLON)
    143142
    144143! *** Variables on full levels
    145 REAL(KIND=JPRB),   INTENT(IN) :: PPRESSURE(KLON,KLEV)    ! (Pa)
    146 REAL(KIND=JPRB),   INTENT(IN) :: PTEMPERATURE(KLON,KLEV) ! (K)
     144!REAL(KIND=JPRB),   INTENT(IN) :: PPRESSURE(KLON,KLEV)    ! (Pa)
     145!REAL(KIND=JPRB),   INTENT(IN) :: PTEMPERATURE(KLON,KLEV) ! (K)
    147146! *** Variables on half levels
    148147REAL(KIND=JPRB),   INTENT(IN) :: PPRESSURE_H(KLON,KLEV+1)    ! (Pa)
     
    168167REAL(KIND=JPRB),   INTENT(IN) :: PQ_LIQUID(KLON,KLEV)
    169168REAL(KIND=JPRB),   INTENT(IN) :: PQ_ICE(KLON,KLEV)
    170 REAL(KIND=JPRB),   INTENT(IN) :: PQ_RAIN(KLON,KLEV)
     169!REAL(KIND=JPRB),   INTENT(IN) :: PQ_RAIN(KLON,KLEV)
    171170REAL(KIND=JPRB),   INTENT(IN) :: PQ_SNOW(KLON,KLEV)
    172171
     
    175174REAL(KIND=JPRB),   INTENT(IN) :: PAEROSOL(KLON,KLEV,KAEROSOL)
    176175
    177 REAL(KIND=JPRB),   INTENT(IN) :: PCCN_LAND(KLON)
    178 REAL(KIND=JPRB),   INTENT(IN) :: PCCN_SEA(KLON)
     176!REAL(KIND=JPRB),   INTENT(IN) :: PCCN_LAND(KLON)
     177!REAL(KIND=JPRB),   INTENT(IN) :: PCCN_SEA(KLON)
    179178
    180179!AI mars 2021
     
    321320  print*,'PTEMPERATURE_SKIN =',PTEMPERATURE_SKIN
    322321  print*,'PEMIS, PEMIS_WINDOW =', PEMIS, PEMIS_WINDOW
    323   print*,'PCCN_LAND, PCCN_SEA =', PCCN_LAND, PCCN_SEA
    324322  print*,'PGELAM, PGEMU =', PGELAM, PGEMU
    325   print*,'PPRESSURE =', PPRESSURE
    326   print*,'PTEMPERATURE =', PTEMPERATURE
    327323  print*,'PPRESSURE_H =', PPRESSURE_H
    328324  print*,'PTEMPERATURE_H =', PTEMPERATURE_H
     
    332328        PCO2, PCH4, PN2O, PNO2, PCFC11, PCFC12, PHCFC22, PCCL4
    333329  print*,'PO3 =',PO3
    334   print*,'PCLOUD_FRAC, PQ_LIQUID, PQ_ICE, PQ_RAIN, PQ_SNOW =', &
    335         PCLOUD_FRAC, PQ_LIQUID, PQ_ICE, PQ_RAIN, PQ_SNOW
     330  print*,'PCLOUD_FRAC, PQ_LIQUID, PQ_ICE, PQ_SNOW =', &
     331        PCLOUD_FRAC, PQ_LIQUID, PQ_ICE, PQ_SNOW
    336332  print*,'ZRE_LIQUID_UM, ZRE_ICE_UM =', &
    337333        ZRE_LIQUID_UM, ZRE_ICE_UM
     
    408404! Alternative approximate version using temperature and pressure from
    409405! the thermodynamics structure
    410 CALL thermodynamics%calc_saturation_wrt_liquid(KIDIA, KFDIA)
     406!CALL thermodynamics%calc_saturation_wrt_liquid(KIDIA, KFDIA)
     407!AI ATTENTION
     408thermodynamics%h2o_sat_liq = PQSAT
    411409
    412410print*,'********** SINGLE LEVEL VARS **********************************'
    413411!AI ATTENTION
    414 !thermodynamics%h2o_sat_liq = PQSAT
    415412! Set single-level fileds
    416413single_level%solar_irradiance              = PSOLAR_IRRADIANCE
Note: See TracChangeset for help on using the changeset viewer.