Changeset 6181


Ignore:
Timestamp:
Apr 21, 2026, 11:37:21 AM (13 days ago)
Author:
idelkadi
Message:

Rewriting and simplifying the interface between the LMDZ code and the radiative transfer codes (continued) :
Rename interface routines with radiative codes.

Location:
LMDZ6/trunk/libf
Files:
2 edited
6 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/lmdz_call_ecrad.F90

    r6180 r6181  
    22! $Id: radlwsw_m.F90 6127 2026-03-26 13:59:25Z idelkadi $
    33!
    4 MODULE lmdz_call_ecrad_m
     4MODULE lmdz_call_ecrad
    55
    66  IMPLICIT NONE
    … …  
    88CONTAINS
    99
    10   SUBROUTINE lmdz_call_ecrad( &
     10  SUBROUTINE call_ecrad     ( &
    1111                              debut, dist, rmu0, fract, &
    1212                              paprs, pplay,tsol,SFRWL,alb_dir, alb_dif, &
    … …  
    5858    USE wxios_mod, ONLY: missing_val
    5959
    60     USE lmdz_rad_ini_m
    61     USE lmdz_rad_out_m
     60    USE lmdz_radiation_pre
     61    USE lmdz_radiation_post
    6262
    6363    ! Input arguments
    … …  
    306306    dimoz=size(wo,3)
    307307
    308     CALL lmdz_rad_ini( &
     308    CALL radiation_pre( &
    309309                       ist,iend,ktdia,kmode, &
    310310                       dist, rmu0, fract, &
    … …  
    736736       !======================================================================
    737737
    738        CALL lmdz_rad_out( &
     738       CALL radiation_post( &
    739739                          iof,PWV, &
    740740                          ZFSUP,ZFSDN,ZFSUP0,ZFSDN0, &
    … …  
    761761                          cloud_cover_sw,ZFLUX_DIR,ZFLUX_DIR_CLEAR,ZFLUX_DIR_INTO_SUN)
    762762
    763   END SUBROUTINE lmdz_call_ecrad
    764 END MODULE lmdz_call_ecrad_m
     763  END SUBROUTINE call_ecrad
     764END MODULE lmdz_call_ecrad

  • LMDZ6/trunk/libf/phylmd/lmdz_call_oldrad.F90

    r6180 r6181  
    22! $Id: radlwsw_m.F90 6127 2026-03-26 13:59:25Z idelkadi $
    33!
    4 MODULE lmdz_call_oldrad_m
     4MODULE lmdz_call_oldrad
    55
    66  IMPLICIT NONE
    … …  
    88CONTAINS
    99
    10   SUBROUTINE lmdz_call_oldrad( &
     10  SUBROUTINE call_oldrad( &
    1111                                dist, rmu0, fract, &
    1212                                paprs, pplay,tsol,SFRWL,alb_dir, alb_dif, &
    … …  
    3434    !                          et les codes radiatifs oldrad/rrtm/ecrad
    3535    ! ---------------------------------------------------------------------------
    36     ! lmdz_call_oldrad_m.F90 :
     36    ! lmdz_call_oldrad.F90 :
    3737    !                         Interface avec ancien code de transfert radiatif (2 bandes SW)
    3838    ! 
    … …  
    5757    USE yoethf_mod_h
    5858    USE phys_constants_mod, ONLY: dobson_u
    59     USE lmdz_rad_ini_m
    60     USE lmdz_rad_out_m
     59    USE lmdz_radiation_pre
     60    USE lmdz_radiation_post
    6161
    6262    ! ====================================================================
    … …  
    209209
    210210    ! =========  INITIALISATIONS ==============================================
    211      CALL lmdz_rad_ini( &
     211     CALL radiation_pre( &
    212212                        ist,iend,ktdia,kmode, &
    213213                        dist, rmu0, fract, &
    … …  
    351351     ! ----- flux radiatifs => sorties --------------------------------- 
    352352
    353      CALL lmdz_rad_out( &
     353     CALL radiation_post( &
    354354                        iof,PWV, &
    355355                        ZFSUP,ZFSDN,ZFSUP0,ZFSDN0, &
    … …  
    376376                        cloud_cover_sw,ZFLUX_DIR,ZFLUX_DIR_CLEAR,ZFLUX_DIR_INTO_SUN)
    377377
    378   END SUBROUTINE lmdz_call_oldrad
    379 
    380 END MODULE lmdz_call_oldrad_m
     378  END SUBROUTINE call_oldrad
     379
     380END MODULE lmdz_call_oldrad

  • LMDZ6/trunk/libf/phylmd/lmdz_call_radiation.F90

    r6180 r6181  
    33!
    44
    5 MODULE lmdz_call_rads_m
     5MODULE lmdz_call_radiation
    66
    77  IMPLICIT NONE
    … …  
    99contains
    1010
    11   SUBROUTINE lmdz_call_rads( &
     11  SUBROUTINE call_radiation( &
    1212                      debut, dist, rmu0, fract, &
    1313                      paprs, pplay, tsol, SFRWL,alb_dir, alb_dif, &
    … …  
    169169                        iflag_rrtm,ok_2xcall_ecrad
    170170
    171     USE lmdz_call_oldrad_m
    172     USE lmdz_call_rrtm_m
    173     USE lmdz_call_ecrad_m
     171    USE lmdz_call_oldrad
     172    USE lmdz_call_rrtm
     173    USE lmdz_call_ecrad
    174174    USE assert_m, ONLY : assert
    175175    !
    … …  
    273273   IF (iflag_rrtm == 0) THEN    ! Oldrad   
    274274
    275          CALL lmdz_call_oldrad( &
     275         CALL call_oldrad     ( &
    276276                                dist, rmu0, fract, &
    277277                                paprs, pplay, tsol, SFRWL, alb_dir, alb_dif, &
    … …  
    297297#ifdef CPP_RRTM
    298298         
    299          CALL lmdz_call_rrtm( &
     299         CALL call_rrtm      ( &
    300300                               dist, rmu0, fract, &
    301301                               paprs, pplay,tsol,SFRWL,alb_dir, alb_dif, &
    … …  
    329329        PRINT*,'Traitement cas iflag_rrtm = ',iflag_rrtm
    330330#ifdef CPP_ECRAD
    331           CALL lmdz_call_ecrad( &
     331          CALL call_ecrad     ( &
    332332                                debut, dist, rmu0, fract, &
    333333                                paprs, pplay,tsol,SFRWL,alb_dir, alb_dif, &
    … …  
    360360       !======================================================================
    361361
    362   END SUBROUTINE lmdz_call_rads
    363 END MODULE lmdz_call_rads_m
     362  END SUBROUTINE call_radiation
     363END MODULE lmdz_call_radiation

  • LMDZ6/trunk/libf/phylmd/lmdz_call_rrtm.F90

    r6180 r6181  
    22! $Id: radlwsw_m.F90 6127 2026-03-26 13:59:25Z idelkadi $
    33!
    4 module lmdz_call_rrtm_m
     4module lmdz_call_rrtm
    55
    66  IMPLICIT NONE
    … …  
    88contains
    99
    10   SUBROUTINE lmdz_call_rrtm( &
     10  SUBROUTINE call_rrtm( &
    1111                             dist, rmu0, fract, &
    1212                             paprs, pplay,tsol,SFRWL,alb_dir, alb_dif, &
    … …  
    6565    USE phys_constants_mod, ONLY: dobson_u
    6666
    67     USE lmdz_rad_ini_m
    68     USE lmdz_rad_out_m
     67    USE lmdz_radiation_pre
     68    USE lmdz_radiation_post
    6969
    7070! ==============
    … …  
    298298    dimoz=size(wo,3)
    299299
    300     CALL lmdz_rad_ini( &
     300    CALL radiation_pre( &
    301301                       ist,iend,ktdia,kmode, &
    302302                       dist, rmu0, fract, &
    … …  
    690690     ! ----- flux radiatifs => sorties --------------------------------- 
    691691
    692        CALL lmdz_rad_out( &
     692       CALL radiation_post( &
    693693                          iof, PWV, &
    694694                          ZFSUP, ZFSDN, ZFSUP0, ZFSDN0, &
    … …  
    715715                          cloud_cover_sw, ZFLUX_DIR, ZFLUX_DIR_CLEAR, ZFLUX_DIR_INTO_SUN)
    716716
    717   END SUBROUTINE lmdz_call_rrtm
    718 
    719 END MODULE lmdz_call_rrtm_m
     717  END SUBROUTINE call_rrtm
     718
     719END MODULE lmdz_call_rrtm

  • LMDZ6/trunk/libf/phylmd/lmdz_radiation_post.F90

    r6180 r6181  
    22! $Id: radlwsw_m.F90 6127 2026-03-26 13:59:25Z idelkadi $
    33!
    4 MODULE lmdz_rad_out_m
     4MODULE lmdz_radiation_post
    55  IMPLICIT NONE
    66CONTAINS
    77
    8   SUBROUTINE lmdz_rad_out( &
     8  SUBROUTINE radiation_post( &
    99                           iof,PWV, &
    1010                           ZFSUP,ZFSDN,ZFSUP0,ZFSDN0, &
    … …  
    241241       END IF
    242242
    243   END SUBROUTINE lmdz_rad_out
    244 END MODULE lmdz_rad_out_m
     243  END SUBROUTINE radiation_post
     244END MODULE lmdz_radiation_post

  • LMDZ6/trunk/libf/phylmd/lmdz_radiation_pre.F90

    r6180 r6181  
    22! $Id: radlwsw_m.F90 6127 2026-03-26 13:59:25Z idelkadi $
    33!
    4 MODULE lmdz_rad_ini_m
     4MODULE lmdz_radiation_pre
    55  IMPLICIT NONE
    66CONTAINS
    77
    8   SUBROUTINE lmdz_rad_ini( &
     8  SUBROUTINE radiation_pre( &
    99       ist,iend,ktdia,kmode, &
    1010       dist, rmu0, fract, &
    … …  
    380380    ENDDO
    381381       !
    382   END SUBROUTINE lmdz_rad_ini
    383 END MODULE lmdz_rad_ini_m
     382  END SUBROUTINE radiation_pre
     383END MODULE lmdz_radiation_pre

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r6168 r6181  
    119119    USE readaerosol_mod, ONLY : init_aero_fromfile
    120120    USE readaerosolstrato_m, ONLY : init_readaerosolstrato
    121     USE lmdz_call_rads_m, ONLY: lmdz_call_rads
     121    USE lmdz_call_radiation, ONLY: call_radiation
    122122    USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz
    123123    USE regr_pr_time_av_m, ONLY: regr_pr_time_av
    … …  
    11061106    ! retros liees aux CRF
    11071107    REAL, dimension(klon, klev) :: cldtaurad   ! epaisseur optique
    1108     ! pour lmdz_call_rads pour
     1108    ! pour call_radiation pour
    11091109    ! tester "CRF off"
    11101110    REAL, dimension(klon, klev) :: cldtaupirad ! epaisseur optique
    1111     ! pour lmdz_call_rads pour
     1111    ! pour call_radsiation pour
    11121112    ! tester "CRF off"
    11131113    REAL, dimension(klon, klev) :: cldemirad   ! emissivite pour
    1114     ! lmdz_call_rads pour tester
     1114    ! call_radiation pour tester
    11151115    ! "CRF off"
    11161116    REAL, dimension(klon, klev) :: cldfrarad   ! fraction nuageuse
    … …  
    25702570    ! Calculs de l'orbite.
    25712571    ! Necessaires pour le rayonnement et la surface (calcul de l'albedo).
    2572     ! doit donc etre plac\'e avant lmdz_call_rads et pbl_surface
     2572    ! doit donc etre plac\'e avant call_radiation et pbl_surface
    25732573
    25742574    ! !!   jyg 17 Sep 2010 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    … …  
    44344434          namelist_ecrad_file='namelist_ecrad'
    44354435          !
    4436           CALL lmdz_call_rads &
     4436          CALL call_radiation &
    44374437               (debut, dist, rmu0, fract,  &
    44384438                                !albedo SB >>>
    … …  
    45074507             !
    45084508             IF (prt_level .GE.10) THEN
    4509                 print *,' ->lmdz_call_rads, number 2 '
     4509                print *,' ->call_radiation, number 2 '
    45104510             ENDIF
    45114511             !
    45124512             namelist_ecrad_file='namelist_ecrad'
    45134513             !
    4514              CALL lmdz_call_rads &
     4514             CALL call_radiation &
    45154515                  (debut, dist, rmu0, fract,  &
    45164516                                !albedo SB >>>
    … …  
    45624562             !                print*,'ok_2xcall_ecrad = ',ok_2xcall_ecrad
    45634563             namelist_ecrad_file='namelist_ecrad_s2'
    4564              CALL lmdz_call_rads &
     4564             CALL call_radiation &
    45654565                  (debut, dist, rmu0, fract,  &
    45664566                  paprs, pplay,zxtsol,SFRWL,albsol_dir, albsol_dif, &
    … …  
    46344634
    46354635    !
    4636     ! Calculer radsol a l'exterieur de lmdz_call_rads
     4636    ! Calculer radsol a l'exterieur de call_radiation
    46374637    ! pour prendre en compte le cycle diurne
    46384638    ! recode par Olivier Boucher en sept 2015

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r6168 r6181  
    9292    USE readaerosol_mod, ONLY : init_aero_fromfile
    9393    USE readaerosolstrato_m, ONLY : init_readaerosolstrato
    94     USE lmdz_call_rads_m, ONLY: lmdz_call_rads
     94    USE lmdz_call_radiation, ONLY: call_radiation
    9595    USE reevap_mod, ONLY: reevap
    9696    USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz
    … …  
    11801180    ! retros liees aux CRF
    11811181    REAL, DIMENSION(klon, klev) :: cldtaurad   ! epaisseur optique
    1182     ! pour lmdz_call_rads pour
     1182    ! pour call_radiation pour
    11831183    ! tester "CRF off"
    11841184    REAL, DIMENSION(klon, klev) :: cldtaupirad ! epaisseur optique
    1185     ! pour lmdz_call_rads pour
     1185    ! pour call_radiation pour
    11861186    ! tester "CRF off"
    11871187    REAL, DIMENSION(klon, klev) :: cldemirad   ! emissivite pour
    1188     ! lmdz_call_rads pour tester
     1188    ! call_radiation pour tester
    11891189    ! "CRF off"
    11901190    REAL, DIMENSION(klon, klev) :: cldfrarad   ! fraction nuageuse
    … …  
    29672967    ! Calculs de l'orbite.
    29682968    ! Necessaires pour le rayonnement et la surface (calcul de l'albedo).
    2969     ! doit donc etre place avant lmdz_call_rads et pbl_surface
     2969    ! doit donc etre place avant call_radiation et pbl_surface
    29702970
    29712971    ! !!   jyg 17 Sep 2010 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    … …  
    59775977
    59785978          IF (prt_level .GE.10) THEN
    5979              print *,' ->lmdz_call_rads, number 1 '
     5979             print *,' ->call_radiation, number 1 '
    59805980          ENDIF
    59815981          !
    5982           ! AI namelist utilise pour l appel principal de lmdz_call_rads (ecrad)
     5982          ! AI namelist utilise pour l appel principal de call_radiation (ecrad)
    59835983          namelist_ecrad_file='namelist_ecrad'
    59845984          !
    5985           CALL lmdz_call_rads &
     5985          CALL call_radiation &
    59865986               (debut, dist, rmu0, fract,  &
    59875987                                !albedo SB >>>
    … …  
    60566056             !
    60576057             IF (prt_level .GE.10) THEN
    6058                 print *,' ->lmdz_call_rads, number 2 '
     6058                print *,' ->call_radiation, number 2 '
    60596059             ENDIF
    60606060             !
    60616061             namelist_ecrad_file='namelist_ecrad'
    60626062             !
    6063              CALL lmdz_call_rads &
     6063             CALL call_radiation &
    60646064                  (debut, dist, rmu0, fract,  &
    60656065                                !albedo SB >>>
    … …  
    61116111             !                print*,'ok_2xcall_ecrad = ',ok_2xcall_ecrad
    61126112             namelist_ecrad_file='namelist_ecrad_s2'
    6113              CALL lmdz_call_rads &
     6113             CALL call_radiation &
    61146114                  (debut, dist, rmu0, fract,  &
    61156115                  paprs, pplay,zxtsol,SFRWL,albsol_dir, albsol_dif, &
    … …  
    61836183
    61846184    !
    6185     ! Calculer radsol a l'exterieur de lmdz_call_rads
     6185    ! Calculer radsol a l'exterieur de call_radiation
    61866186    ! pour prendre en compte le cycle diurne
    61876187    ! recode par Olivier Boucher en sept 2015
Note: See TracChangeset for help on using the changeset viewer.