Ignore:
Timestamp:
Jul 26, 2024, 2:20:54 PM (4 months ago)
Author:
abarral
Message:

Fix 1D, rrtm & ecrad compilation

Location:
LMDZ6/branches/Amaury_dev
Files:
19 added
42 edited
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_hyb_m.F90

    r5128 r5133  
    3535    USE comconst_mod, ONLY: jmp1, cpp, kappa, r
    3636    USE comvert_mod, ONLY: preff
    37     USE lmdz_filtreg, ONLY: filtreg ! < TODO if we uncomment this, compilation fails in 1D because 1D doesn't have the filtrez/ sources... But why does it even compile in the first place when it's commented ? ...
     37    USE lmdz_filtreg, ONLY: filtreg
    3838
    3939    IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_writefield_phy.f90

    r5132 r5133  
    11! $Id$
    22
    3 MODULE lmdz_write_field_phy
     3MODULE lmdz_writefield_phy
    44
    55  ! Dump a field on the global (nbp_lon by nbp_lat) physics grid
     6  IMPLICIT NONE; PRIVATE
     7  PUBLIC writefield_phy
    68
    79CONTAINS
    … …  
    3335  END SUBROUTINE WriteField_phy
    3436
    35 END MODULE lmdz_write_field_phy
     37END MODULE lmdz_writefield_phy

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/dustemission_mod.F90

    r5117 r5133  
    172172  USE dimphy
    173173  USE infotrac
    174   USE lmdz_write_field_phy
     174  USE lmdz_writefield_phy
    175175  USE lmdz_grid_phy
    176176  USE lmdz_phys_para
    … …  
    279279  USE dimphy
    280280  USE infotrac
    281   USE lmdz_write_field_phy
     281  USE lmdz_writefield_phy
    282282  USE lmdz_grid_phy
    283283  USE lmdz_phys_para
    … …  
    519519  USE dimphy
    520520  USE infotrac
    521   USE lmdz_write_field_phy
     521  USE lmdz_writefield_phy
    522522  USE lmdz_grid_phy
    523523  USE lmdz_phys_para

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phytracr_spl_mod.F90

    r5128 r5133  
    790790    USE infotrac
    791791    USE indice_sol_mod
    792     USE lmdz_write_field_phy
     792    USE lmdz_writefield_phy
    793793
    794794    USE lmdz_phys_transfert_para

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/satellite_out_spla.F90

    r5117 r5133  
    55  USE dimphy
    66  USE IOIPSL
    7   USE lmdz_write_field_phy
     7  USE lmdz_writefield_phy
    88
    99  IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/cosp_output_mod.F90

    r5095 r5133  
    234234  USE phys_cal_mod
    235235  USE time_phylmdz_mod, ONLY: day_ref, annee_ref, day_ini, start_time, itau_phy
    236   USE print_control_mod, ONLY: lunout
     236  USE lmdz_print_control, ONLY: lunout
    237237  ! ug Pour les sorties XIOS
    238238  USE wxios
    … …  
    260260!!! Variables d'entree
    261261
    262   ! ug Variables utilisées pour récupérer le calendrier pour xios
     262  ! ug Variables utilis�es pour r�cup�rer le calendrier pour xios
    263263  INTEGER :: x_an, x_mois, x_jour
    264264  REAL :: x_heure

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/cosp_output_write_mod.F90

    r5095 r5133  
    2525    USE ioipsl
    2626    USE time_phylmdz_mod, ONLY: itau_phy, start_time, day_step_phy
    27     USE print_control_mod, ONLY: lunout,prt_level
     27    USE lmdz_print_control, ONLY: lunout,prt_level
    2828    USE wxios, only: wxios_closedef
    2929    USE lmdz_xios, only: xios_update_calendar, xios_field_is_active, using_xios
    … …  
    441441    USE dimphy
    442442    use iophy
    443     USE mod_phys_lmdz_para
    444     USE mod_grid_phy_lmdz, ONLY: nbp_lon
    445     USE print_control_mod, ONLY: lunout,prt_level
     443    USE lmdz_phys_para
     444    USE lmdz_grid_phy, ONLY: nbp_lon
     445    USE lmdz_print_control, ONLY: lunout,prt_level
    446446    USE wxios
    447447
    … …  
    456456    CHARACTER(LEN=20) :: typeecrit
    457457
    458     ! ug On récupère le type écrit de la structure:
    459     !       Assez moche, Ã|  refaire si meilleure méthode...
     458    ! ug On récupère le type écrit de la structure:
     459    !       Assez moche, �|  refaire si meilleure méthode...
    460460    IF (INDEX(var%cosp_typeecrit(iff), "once") > 0) THEN
    461461       typeecrit = 'once'
    … …  
    502502    USE dimphy
    503503    use iophy
    504     USE mod_phys_lmdz_para
    505     USE mod_grid_phy_lmdz, ONLY: nbp_lon
    506     USE print_control_mod, ONLY: lunout,prt_level
     504    USE lmdz_phys_para
     505    USE lmdz_grid_phy, ONLY: nbp_lon
     506    USE lmdz_print_control, ONLY: lunout,prt_level
    507507    USE wxios
    508508
    … …  
    558558      END IF
    559559
    560     ! ug On récupère le type écrit de la structure:
    561     !       Assez moche, Ã|  refaire si meilleure méthode...
     560    ! ug On récupère le type écrit de la structure:
     561    !       Assez moche, �|  refaire si meilleure méthode...
    562562    IF (INDEX(var%cosp_typeecrit(iff), "once") > 0) THEN
    563563       typeecrit = 'once'
    … …  
    603603 SUBROUTINE histwrite2d_cosp(var,field)
    604604  USE dimphy
    605   USE mod_phys_lmdz_para
     605  USE lmdz_phys_para
    606606  USE ioipsl
    607607  use iophy
    608   USE mod_grid_phy_lmdz, ONLY: nbp_lon
    609   USE print_control_mod, ONLY: lunout,prt_level
     608  USE lmdz_grid_phy, ONLY: nbp_lon
     609  USE lmdz_print_control, ONLY: lunout,prt_level
    610610  USE lmdz_xios, only: xios_send_field, using_xios
     611  USE lmdz_abort_physic, ONLY: abort_physic
    611612
    612613  IMPLICIT NONE
    … …  
    628629    IF (prt_level >= 9) WRITE(lunout,*)'Begin histrwrite2d ',var%name
    629630
    630   ! On regarde si on est dans la phase de définition ou d'écriture:
     631  ! On regarde si on est dans la phase de définition ou d'écriture:
    631632  IF(.NOT.cosp_varsdefined) THEN
    632633!$OMP MASTER
    633       !Si phase de définition.... on définit
     634      !Si phase de définition.... on définit
    634635      CALL conf_cospoutputs(var%name,var%cles)
    635636      DO iff=1, 3
    … …  
    640641!$OMP END MASTER
    641642  ELSE
    642     !Et sinon on.... écrit
     643    !Et sinon on.... écrit
    643644    IF (SIZE(field)/=klon) &
    644645  CALL abort_physic('iophy::histwrite2d_cosp','Field first DIMENSION not equal to klon',1)
    … …  
    689690  SUBROUTINE histwrite3d_cosp(var, field, nverts, ncols)
    690691  USE dimphy
    691   USE mod_phys_lmdz_para
     692  USE lmdz_phys_para
    692693  USE ioipsl
    693694  use iophy
    694   USE mod_grid_phy_lmdz, ONLY: nbp_lon
    695   USE print_control_mod, ONLY: lunout,prt_level
     695  USE lmdz_grid_phy, ONLY: nbp_lon
     696  USE lmdz_print_control, ONLY: lunout,prt_level
    696697  USE lmdz_xios, only: xios_send_field, using_xios
     698  USE lmdz_abort_physic, ONLY: abort_physic
    697699
    698700  IMPLICIT NONE
    … …  
    725727               nom=var%name
    726728      END IF
    727   ! On regarde si on est dans la phase de définition ou d'écriture:
     729  ! On regarde si on est dans la phase de définition ou d'écriture:
    728730  IF(.NOT.cosp_varsdefined) THEN
    729       !Si phase de définition.... on définit
     731      !Si phase de définition.... on définit
    730732!$OMP MASTER
    731733      CALL conf_cospoutputs(var%name,var%cles)
    … …  
    737739!$OMP END MASTER
    738740  ELSE
    739     !Et sinon on.... écrit
     741    !Et sinon on.... écrit
    740742    IF (SIZE(field,1)/=klon) &
    741743   CALL abort_physic('iophy::histwrite3d','Field first DIMENSION not equal to klon',1)                                 
    … …  
    785787  SUBROUTINE histwrite4d_cosp(var, field)
    786788  USE dimphy
    787   USE mod_phys_lmdz_para
     789  USE lmdz_phys_para
    788790  USE ioipsl
    789791  use iophy
    790   USE mod_grid_phy_lmdz, ONLY: nbp_lon
    791   USE print_control_mod, ONLY: lunout,prt_level
     792  USE lmdz_grid_phy, ONLY: nbp_lon
     793  USE lmdz_print_control, ONLY: lunout,prt_level
    792794  USE lmdz_xios, only: xios_send_field, using_xios
     795  USE lmdz_abort_physic, ONLY: abort_physic
    793796
    794797  IMPLICIT NONE
    … …  
    809812
    810813  IF(cosp_varsdefined) THEN
    811     !Et sinon on.... écrit
     814    !Et sinon on.... écrit
    812815    IF (SIZE(field,1)/=klon) &
    813816   CALL abort_physic('iophy::histwrite3d','Field first DIMENSION not equal to klon',1)           
    … …  
    835838    !   en utilisant les routines getin de IOIPSL 
    836839    use ioipsl
    837     USE print_control_mod, ONLY: lunout,prt_level
     840    USE lmdz_print_control, ONLY: lunout,prt_level
    838841
    839842    IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/cosp_read_otputkeys.F90

    r4619 r5133  
    1515  USE MOD_COSP_CONSTANTS
    1616  USE MOD_COSP_TYPES
    17   USE mod_phys_lmdz_para
     17  USE lmdz_phys_para
    1818
    1919CONTAINS

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/phys_cosp.F90

    r5095 r5133  
    7777  USE MOD_COSP_TYPES
    7878  USE MOD_COSP
    79   USE mod_phys_lmdz_para
    80   USE mod_grid_phy_lmdz
     79  USE lmdz_phys_para
     80  USE lmdz_grid_phy
    8181  use ioipsl
    8282  use iophy

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/cosp_config.F90

    r3396 r5133  
    4141MODULE MOD_COSP_CONFIG
    4242    USE COSP_KINDS, ONLY: wp,dp
    43     USE mod_phys_lmdz_para
     43    USE lmdz_phys_para
    4444    IMPLICIT NONE
    4545

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/cosp_output_mod.F90

    r5095 r5133  
    245245  USE phys_cal_mod
    246246  USE time_phylmdz_mod, ONLY: day_ref, annee_ref, day_ini, start_time, itau_phy
    247   USE print_control_mod, ONLY: lunout
     247  USE lmdz_print_control, ONLY: lunout
    248248    ! ug Pour les sorties XIOS
    249249  USE wxios
    … …  
    272272!!! Variables d'entree
    273273
    274 ! ug Variables utilisées pour récupérer le calendrier pour xios
     274! ug Variables utilis�es pour r�cup�rer le calendrier pour xios
    275275  INTEGER :: x_an, x_mois, x_jour
    276276  REAL :: x_heure

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/cosp_output_write_mod.F90

    r5095 r5133  
    3535    USE ioipsl
    3636    USE time_phylmdz_mod, ONLY: itau_phy, start_time, day_step_phy
    37     USE print_control_mod, ONLY: lunout,prt_level
     37    USE lmdz_print_control, ONLY: lunout,prt_level
    3838    USE wxios, only: wxios_closedef
    3939    USE lmdz_xios, only: xios_update_calendar, xios_field_is_active, using_xios
    … …  
    458458    USE dimphy
    459459    use iophy
    460     USE mod_phys_lmdz_para
    461     USE mod_grid_phy_lmdz, ONLY: nbp_lon
    462     USE print_control_mod, ONLY: lunout,prt_level
     460    USE lmdz_phys_para
     461    USE lmdz_grid_phy, ONLY: nbp_lon
     462    USE lmdz_print_control, ONLY: lunout,prt_level
    463463    USE wxios
    464464
    … …  
    473473    CHARACTER(LEN=20) :: typeecrit
    474474
    475     ! ug On récupère le type écrit de la structure:
    476     !       Assez moche, Ã|  refaire si meilleure méthode...
     475    ! ug On récupère le type écrit de la structure:
     476    !       Assez moche, �|  refaire si meilleure méthode...
    477477    IF (INDEX(var%cosp_typeecrit(iff), "once") > 0) THEN
    478478       typeecrit = 'once'
    … …  
    519519    USE dimphy
    520520    use iophy
    521     USE mod_phys_lmdz_para
    522     USE mod_grid_phy_lmdz, ONLY: nbp_lon
    523     USE print_control_mod, ONLY: lunout,prt_level
     521    USE lmdz_phys_para
     522    USE lmdz_grid_phy, ONLY: nbp_lon
     523    USE lmdz_print_control, ONLY: lunout,prt_level
    524524    USE wxios
    525525
    … …  
    575575      END IF
    576576
    577     ! ug On récupère le type écrit de la structure:
    578     !       Assez moche, Ã|  refaire si meilleure méthode...
     577    ! ug On récupère le type écrit de la structure:
     578    !       Assez moche, �|  refaire si meilleure méthode...
    579579    IF (INDEX(var%cosp_typeecrit(iff), "once") > 0) THEN
    580580       typeecrit = 'once'
    … …  
    620620 SUBROUTINE histwrite2d_cosp(var,field)
    621621  USE dimphy
    622   USE mod_phys_lmdz_para
     622  USE lmdz_phys_para
    623623  USE ioipsl
    624624  use iophy
    625   USE mod_grid_phy_lmdz, ONLY: nbp_lon
    626   USE print_control_mod, ONLY: lunout,prt_level
     625  USE lmdz_grid_phy, ONLY: nbp_lon
     626  USE lmdz_print_control, ONLY: lunout,prt_level
    627627  USE lmdz_xios, only: xios_send_field, using_xios
     628  USE lmdz_abort_physic, ONLY: abort_physic
    628629
    629630  IMPLICIT NONE
    … …  
    645646    IF (prt_level >= 9) WRITE(lunout,*)'Begin histrwrite2d ',var%name
    646647
    647   ! On regarde si on est dans la phase de définition ou d'écriture:
     648  ! On regarde si on est dans la phase de définition ou d'écriture:
    648649  IF(.NOT.cosp_varsdefined) THEN
    649650!$OMP MASTER
    650       !Si phase de définition.... on définit
     651      !Si phase de définition.... on définit
    651652      CALL conf_cospoutputs(var%name,var%cles)
    652653      DO iff=1, 3
    … …  
    657658!$OMP END MASTER
    658659  ELSE
    659     !Et sinon on.... écrit
     660    !Et sinon on.... écrit
    660661    IF (SIZE(field)/=klon) &
    661662  CALL abort_physic('iophy::histwrite2d_cosp','Field first DIMENSION not equal to klon',1)
    … …  
    706707  SUBROUTINE histwrite3d_cosp(var, field, nverts, ncols)
    707708  USE dimphy
    708   USE mod_phys_lmdz_para
     709  USE lmdz_phys_para
    709710  USE ioipsl
    710711  use iophy
    711   USE mod_grid_phy_lmdz, ONLY: nbp_lon
    712   USE print_control_mod, ONLY: lunout,prt_level
     712  USE lmdz_grid_phy, ONLY: nbp_lon
     713  USE lmdz_print_control, ONLY: lunout,prt_level
    713714  USE lmdz_xios, only: xios_send_field, using_xios
     715  USE lmdz_abort_physic, ONLY: abort_physic
    714716
    715717  IMPLICIT NONE
    … …  
    742744               nom=var%name
    743745      END IF
    744   ! On regarde si on est dans la phase de définition ou d'écriture:
     746  ! On regarde si on est dans la phase de définition ou d'écriture:
    745747  IF(.NOT.cosp_varsdefined) THEN
    746       !Si phase de définition.... on définit
     748      !Si phase de définition.... on définit
    747749!$OMP MASTER
    748750      CALL conf_cospoutputs(var%name,var%cles)
    … …  
    754756!$OMP END MASTER
    755757  ELSE
    756     !Et sinon on.... écrit
     758    !Et sinon on.... écrit
    757759    IF (SIZE(field,1)/=klon) &
    758760   CALL abort_physic('iophy::histwrite3d','Field first DIMENSION not equal to klon',1)                                 
    … …  
    802804  SUBROUTINE histwrite4d_cosp(var, field)
    803805  USE dimphy
    804   USE mod_phys_lmdz_para
     806  USE lmdz_phys_para
    805807  USE ioipsl
    806808  use iophy
    807   USE mod_grid_phy_lmdz, ONLY: nbp_lon
    808   USE print_control_mod, ONLY: lunout,prt_level
     809  USE lmdz_grid_phy, ONLY: nbp_lon
     810  USE lmdz_print_control, ONLY: lunout,prt_level
    809811  USE lmdz_xios, only: xios_send_field, using_xios
     812  USE lmdz_abort_physic, ONLY: abort_physic
    810813
    811814  IMPLICIT NONE
    … …  
    826829
    827830  IF(cosp_varsdefined) THEN
    828     !Et sinon on.... écrit
     831    !Et sinon on.... écrit
    829832    IF (SIZE(field,1)/=klon) &
    830833   CALL abort_physic('iophy::histwrite3d','Field first DIMENSION not equal to klon',1)           
    … …  
    852855    !   en utilisant les routines getin de IOIPSL 
    853856    use ioipsl
    854     USE print_control_mod, ONLY: lunout,prt_level
     857    USE lmdz_print_control, ONLY: lunout,prt_level
    855858
    856859    IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/cosp_read_otputkeys.F90

    r5095 r5133  
    1616!  USE MOD_COSP_TYPES
    1717  use MOD_COSP_INTERFACE_v1p4
    18   USE mod_phys_lmdz_para
     18  USE lmdz_phys_para
    1919
    2020CONTAINS

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/phys_cosp2.F90

    r5095 r5133  
    7777!  USE MOD_COSP_TYPES
    7878!  USE MOD_COSP
    79   USE mod_phys_lmdz_para
    80   USE mod_grid_phy_lmdz
     79  USE lmdz_phys_para
     80  USE lmdz_grid_phy
    8181  use ioipsl
    8282  use iophy

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/lmdz_cosp_interface.F90

    r5099 r5133  
    6363
    6464!!! Modules specifiques a l'interface LMDZ-COSP
    65   use mod_phys_lmdz_para
    66   use mod_grid_phy_lmdz
     65  use lmdz_phys_para
     66  use lmdz_grid_phy
    6767  use ioipsl
    6868  use iophy

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/lmdz_cosp_output_mod.F90

    r5099 r5133  
    325325  USE phys_cal_mod
    326326  USE time_phylmdz_mod, ONLY: day_ref, annee_ref, day_ini, start_time, itau_phy
    327   USE print_control_mod, ONLY: lunout
     327  USE lmdz_print_control, ONLY: lunout
    328328  ! ug Pour les sorties XIOS
    329329  USE wxios

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/lmdz_cosp_output_write_mod.F90

    r5099 r5133  
    3535    USE ioipsl
    3636    USE time_phylmdz_mod, ONLY: itau_phy, start_time, day_step_phy
    37     USE print_control_mod, ONLY: lunout,prt_level
     37    USE lmdz_print_control, ONLY: lunout,prt_level
    3838    USE lmdz_cosp_read_outputkeys, only: cosp_config
    3939!COSPv2
    … …  
    654654    USE dimphy
    655655    use iophy
    656     USE mod_phys_lmdz_para
    657     USE mod_grid_phy_lmdz, ONLY: nbp_lon
    658     USE print_control_mod, ONLY: lunout,prt_level
     656    USE lmdz_phys_para
     657    USE lmdz_grid_phy, ONLY: nbp_lon
     658    USE lmdz_print_control, ONLY: lunout,prt_level
    659659  USE wxios
    660660
    … …  
    707707    USE dimphy
    708708    use iophy
    709     USE mod_phys_lmdz_para
    710     USE mod_grid_phy_lmdz, ONLY: nbp_lon
    711     USE print_control_mod, ONLY: lunout,prt_level
     709    USE lmdz_phys_para
     710    USE lmdz_grid_phy, ONLY: nbp_lon
     711    USE lmdz_print_control, ONLY: lunout,prt_level
    712712
    713713  USE wxios
    … …  
    801801 SUBROUTINE histwrite2d_cosp(var,field)
    802802  USE dimphy
    803   USE mod_phys_lmdz_para
     803  USE lmdz_phys_para
    804804  USE ioipsl
    805805  use iophy
    806   USE mod_grid_phy_lmdz, ONLY: nbp_lon
    807   USE print_control_mod, ONLY: lunout,prt_level
     806  USE lmdz_grid_phy, ONLY: nbp_lon
     807  USE lmdz_print_control, ONLY: lunout,prt_level
    808808
    809809  USE lmdz_xios, only: xios_send_field
     810  USE lmdz_abort_physic, ONLY: abort_physic
    810811
    811812  IMPLICIT NONE
    … …  
    883884  SUBROUTINE histwrite3d_cosp(var, field, nverts, ncols)
    884885  USE dimphy
    885   USE mod_phys_lmdz_para
     886  USE lmdz_phys_para
    886887  USE ioipsl
    887888  use iophy
    888   USE mod_grid_phy_lmdz, ONLY: nbp_lon
    889   USE print_control_mod, ONLY: lunout,prt_level
     889  USE lmdz_grid_phy, ONLY: nbp_lon
     890  USE lmdz_print_control, ONLY: lunout,prt_level
    890891
    891892  USE lmdz_xios, only: xios_send_field
     893  USE lmdz_abort_physic, ONLY: abort_physic
    892894
    893895
    … …  
    974976  SUBROUTINE histwrite4d_cosp(var, field)
    975977  USE dimphy
    976   USE mod_phys_lmdz_para
     978  USE lmdz_phys_para
    977979  USE ioipsl
    978980  use iophy
    979   USE mod_grid_phy_lmdz, ONLY: nbp_lon
    980   USE print_control_mod, ONLY: lunout,prt_level
     981  USE lmdz_grid_phy, ONLY: nbp_lon
     982  USE lmdz_print_control, ONLY: lunout,prt_level
    981983
    982984  USE lmdz_xios, only: xios_send_field
     985  USE lmdz_abort_physic, ONLY: abort_physic
    983986
    984987
    … …  
    10241027    !   en utilisant les routines getin de IOIPSL 
    10251028    use ioipsl
    1026     USE print_control_mod, ONLY: lunout,prt_level
     1029    USE lmdz_print_control, ONLY: lunout,prt_level
    10271030
    10281031    IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/lmdz_cosp_read_outputkeys.F90

    r5095 r5133  
    1717module lmdz_cosp_read_outputkeys
    1818
    19   USE mod_phys_lmdz_para
     19  USE lmdz_phys_para
    2020
    2121  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cpl_mod.F90

    r5117 r5133  
    2323! in the module are compiled and not the subroutines.
    2424  USE oasis
    25   USE lmdz_write_field_phy
     25  USE lmdz_writefield_phy
    2626  USE time_phylmdz_mod, ONLY: day_step_phy
    2727 

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90

    r5128 r5133  
    709709    USE phys_state_var_mod
    710710    USE iostart
    711     USE lmdz_write_field_phy
     711    USE lmdz_writefield_phy
    712712    USE infotrac
    713713    USE control_mod

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_scheme.F90

    r5092 r5133  
    102102USE radiation_save,           ONLY : save_inputs
    103103
    104 USE mod_phys_lmdz_para
     104USE lmdz_phys_para
    105105
    106106IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_setup.F90

    r4677 r5133  
    6161!        &                       IIceModelFu, IIceModelBaran, &
    6262!        &                       IOverlapExponentialRandom
    63     USE mod_phys_lmdz_para
     63    USE lmdz_phys_para
    6464     
    6565    USE YOMHOOK,  ONLY : LHOOK, DR_HOOK

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/calcul_cloud_overlap_decorr_len.F90

    r4948 r5133  
    2626USE YOMHOOK  , ONLY : LHOOK, DR_HOOK, JPHOOK
    2727USE YOMCST   , ONLY : RPI
    28 USE geometry_mod, ONLY: latitude_deg
     28USE lmdz_geometry, ONLY: latitude_deg
    2929USE lmdz_cloud_optics_prop_ini , ONLY : prmhc, prlmc
    3030USE setup_config_from_lmdz,   ONLY : driver_config_type
    31 USE write_field_phy
     31USE lmdz_writefield_phy
    3232! -------------------------------------------------------------------
    3333

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/radiation_scheme_mod.F90

    r4911 r5133  
    6464USE radiation_save,           ONLY : save_inputs
    6565
    66 USE mod_phys_lmdz_para
     66USE lmdz_phys_para
    6767
    6868IMPLICIT NONE
    … …  
    750750USE radiation_save,           ONLY : save_inputs
    751751
    752 USE mod_phys_lmdz_para
     752USE lmdz_phys_para
    753753
    754754IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/radiation_setup.F90

    r4963 r5133  
    6161!        &                       IIceModelFu, IIceModelBaran, &
    6262!        &                       IOverlapExponentialRandom
    63     USE mod_phys_lmdz_para
     63    USE lmdz_phys_para
    6464     
    6565    USE YOMHOOK,  ONLY : LHOOK, DR_HOOK

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/readaerosolstrato_ecrad.F90

    r4853 r5133  
    99
    1010    USE phys_cal_mod, ONLY : mth_cur
    11     USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, grid2dTo1d_glo, grid_type, unstructured
    12     USE mod_phys_lmdz_mpi_data
    13     USE mod_phys_lmdz_omp_data
    14     USE mod_phys_lmdz_para
     11    USE lmdz_grid_phy, ONLY: nbp_lon, nbp_lat, klon_glo, grid2dTo1d_glo, grid_type, unstructured
     12    USE lmdz_phys_mpi_data
     13    USE lmdz_phys_omp_data
     14    USE lmdz_phys_para
    1515    USE phys_state_var_mod
    1616    USE phys_local_var_mod
    … …  
    2121    USE radiation_config, ONLY : config_type
    2222    USE YOMCST
     23    USE lmdz_abort_physic, ONLY: abort_physic
    2324#ifdef CPP_XIOS
    2425    USE xios

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_old.F90

    r5123 r5133  
    99
    1010    USE dimphy
    11     USE lmdz_write_field_phy
     11    USE lmdz_writefield_phy
    1212    USE lmdz_thermcell_dv2, ONLY: thermcell_dv2
    1313    USE lmdz_thermcell_dq, ONLY: thermcell_dq

  • LMDZ6/branches/Amaury_dev/libf/phylmd/oasis.F90

    r5117 r5133  
    1111  USE dimphy
    1212  USE lmdz_phys_para
    13   USE lmdz_write_field_phy
     13  USE lmdz_writefield_phy
    1414
    1515#ifdef CPP_COUPLE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/physiq_mod.F90

    r5128 r5133  
    7474    USE ice_sursat_mod, ONLY: flight_init, airplane
    7575    USE lmdz_vampir
    76     USE lmdz_write_field_phy
     76    USE lmdz_writefield_phy
    7777    USE lmdz_wxios, ONLY: g_ctx, wxios_set_context
    7878    USE lmdz_lscp, ONLY: lscp

  • LMDZ6/branches/Amaury_dev/libf/phylmd/radlwsw_m.F90

    r5119 r5133  
    5050    USE lmdz_assert, ONLY: assert
    5151    USE infotrac_phy, ONLY: type_trac
    52     USE lmdz_write_field_phy
     52    USE lmdz_writefield_phy
    5353
    5454#ifdef REPROBUS

  • LMDZ6/branches/Amaury_dev/libf/phylmd/readaerosol_interp.F90

    r5117 r5133  
    1818  USE readaerosol_mod
    1919  USE aero_mod, ONLY: naero_spc, name_aero
    20   USE lmdz_write_field_phy
     20  USE lmdz_writefield_phy
    2121  USE phys_cal_mod
    2222  USE lmdz_pres2lev

  • LMDZ6/branches/Amaury_dev/libf/phylmd/regr_pr_time_av_m.F90

    r5117 r5133  
    22MODULE regr_pr_time_av_m
    33
    4   USE lmdz_write_field_phy
     4  USE lmdz_writefield_phy
    55  USE lmdz_phys_transfert_para, ONLY: bcast
    66  USE lmdz_phys_para, ONLY: mpi_rank, omp_rank

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/radlsw.F90

    r3539 r5133  
    1515 & PFLUX,PFLUC,PFSDN ,PFSUP , PFSCDN , PFSCUP)
    1616
    17 use write_field_phy
     17USE lmdz_writefield_phy, ONLY: writefield_phy
    1818
    1919!**** *RADLSW* - INTERFACE TO ECMWF LW AND SW RADIATION SCHEMES

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/rrtm_taumol2.F90

    r4242 r5133  
    2323USE YOERRTBG2, ONLY : CORR1  ,CORR2
    2424
    25 USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level, &
     25USE lmdz_print_control, ONLY: mydebug=>debug , lunout, prt_level, &
    2626 & alert_first_call, call_alert, prt_alerte
    2727

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/suphec.F90

    r2799 r5133  
    8787USE YOM_PHYS_GRID ,ONLY : PHYS_GRID
    8888USE YOMCT0  , ONLY  : LSCMEC   ,LROUGH   ,REXTZ0M  ,REXTZ0H
    89 USE vertical_layers_mod, ONLY: ap,bp
     89USE lmdz_vertical_layers, ONLY: ap,bp
    9090
    9191IMPLICIT NONE
    … …  
    184184VP00=101325.     !!!!! A REVOIR (MPL)
    185185ZPRES(NFLEVG)=VP00
    186 ! on recupere ap et bp de dyn3d (vertical_layers_mod) MPL 19.05.09
     186! on recupere ap et bp de dyn3d (lmdz_vertical_layers) MPL 19.05.09
    187187! Attention, VAH et VBH sont inverses, comme les niveaux
    188188! plev(l)=PAPRS(klon,nlayer+1-l) de 1 a nlayer (apllmd.F)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/sw.F90

    r2010 r5133  
    7373!USE YOERAD   , ONLY : NSW
    7474! NSW mis dans .def MPL 20140211
    75 USE write_field_phy
     75USE lmdz_writefield_phy, ONLY: writefield_phy
    7676
    7777IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/sw1s.F90

    r2192 r5133  
    7272!USE YOERAD   , ONLY : NSW
    7373! NSW mis dans .def MPL 20140211
    74 USE write_field_phy
     74USE lmdz_writefield_phy, ONLY: writefield_phy
    7575
    7676IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/swni.F90

    r2401 r5133  
    8080!--MODIFCODE
    8181USE YOERDU   , ONLY : REPLOG   ,REPSCQ   ,REPSC
    82 USE write_field_phy
     82USE lmdz_writefield_phy, ONLY: writefield_phy
    8383
    8484IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/swr.F90

    r2596 r5133  
    6565USE YOECLD   , ONLY : REPSEC
    6666USE YOEOVLP  , ONLY : RA1OVLP
    67 USE write_field_phy
     67USE lmdz_writefield_phy, ONLY: writefield_phy
    6868
    6969IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/swuvo3.F90

    r1990 r5133  
    5858USE YOESW    , ONLY : NEXPO3, REXPO3
    5959USE YOMJFH   , ONLY : N_VMASS
    60 USE write_field_phy
     60USE lmdz_writefield_phy
    6161
    6262IMPLICIT NONE

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_routines_mod.F90

    r5132 r5133  
    1571415714        rain_fall,snow_fall,fevap,fxtevap,xtsol,qsol
    1571515715      !USE iostart, ONLY: close_startphy, get_field, get_var, open_startphy
    15716       !USE lmdz_write_field_phy
     15716      !USE lmdz_writefield_phy
    1571715717      USE indice_sol_mod, ONLY: nbsrf
    1571815718  USE isotopes_mod, ONLY: initialisation_iso, iso_eau,iso_HDO, &
    … …  
    1588915889        fevap,fxtevap,xtsol,qsol
    1589015890      !USE iostart
    15891       !USE lmdz_write_field_phy
     15891      !USE lmdz_writefield_phy
    1589215892      USE indice_sol_mod, ONLY: nbsrf
    1589315893  USE isotopes_mod, ONLY: tnat,iso_HDO,iso_O18,iso_HTO, iso_eau,toce, &

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/physiq_mod.F90

    r5132 r5133  
    7575    USE ice_sursat_mod,  ONLY: flight_init, airplane
    7676    USE lmdz_vampir
    77     USE lmdz_write_field_phy
     77    USE lmdz_writefield_phy
    7878    USE lmdz_wxios, ONLY: g_ctx, wxios_set_context
    7979    USE lmdz_lscp, ONLY: lscp

  • LMDZ6/branches/Amaury_dev/makelmdz_fcm

    r5130 r5133  
    525525  ########################################################################
    526526  if [[ $dimc = 1 ]]; then
    527     ## no filtre in 1d:
    528     FILTRE_PATH="$LMDGCM/.void_dir"
    529527    ## no need to compile all routines in dyn3d_common either:
    530528    DYN_COMMON_PATH="$LMDGCM/.void_dir"
Note: See TracChangeset for help on using the changeset viewer.