- Timestamp:
- Oct 30, 2024, 2:54:51 PM (8 weeks ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 9 edited
- 6 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/calbeta.f90
r5268 r5301 5 5 vbeta,vcal,vdif) 6 6 7 USE dimphy 7 USE flux_arp_mod_h 8 USE dimphy 8 9 USE indice_sol_mod 9 10 10 11 IMPLICIT none 11 12 12 INCLUDE "flux_arp.h"13 13 14 14 !====================================================================== -
LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h
r5285 r5301 11 11 12 12 USE print_control_mod, ONLY: lunout 13 USE tsoilnudge_mod_h 14 USE fcg_gcssold_mod_h 15 USE flux_arp_mod_h 13 16 IMPLICIT NONE 14 17 !----------------------------------------------------------------------- … … 19 22 20 23 #include "compar1d.h" 21 #include "flux_arp.h"22 #include "tsoilnudge.h"23 #include "fcg_gcssold.h"24 24 #include "fcg_racmo.h" 25 25 ! -
LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.f90
r5296 r5301 5 5 SUBROUTINE old_lmdz1d 6 6 7 USE compbl_mod_h 7 USE flux_arp_mod_h 8 USE compbl_mod_h 8 9 USE clesphys_mod_h 9 10 USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin … … 52 53 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 53 54 USE dimsoil_mod_h, ONLY: nsoilmx 54 USE yomcst_mod_h 55 USE yomcst_mod_h 56 USE tsoilnudge_mod_h 57 USE fcg_gcssold_mod_h 55 58 implicit none 56 59 57 58 !! INCLUDE "control.h"59 ! INCLUDE "indicesol.h"60 61 60 INCLUDE "compar1d.h" 62 INCLUDE "flux_arp.h"63 61 INCLUDE "date_cas.h" 64 INCLUDE "tsoilnudge.h"65 INCLUDE "fcg_gcssold.h"66 62 !!! INCLUDE "fbforcing.h" 67 63 -
LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90
r5296 r5301 1 1 SUBROUTINE scm 2 2 3 USE compbl_mod_h 3 USE flux_arp_mod_h 4 USE compbl_mod_h 4 5 USE clesphys_mod_h 5 6 USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin … … 48 49 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 49 50 USE dimsoil_mod_h, ONLY: nsoilmx 50 USE yomcst_mod_h 51 USE yomcst_mod_h 52 USE tsoilnudge_mod_h 53 USE fcg_gcssold_mod_h 51 54 implicit none 52 53 54 !! INCLUDE "control.h"55 ! INCLUDE "indicesol.h"56 57 55 INCLUDE "compar1d.h" 58 INCLUDE "flux_arp.h"59 56 INCLUDE "date_cas.h" 60 INCLUDE "tsoilnudge.h"61 INCLUDE "fcg_gcssold.h"62 57 63 58 !===================================================================== -
LMDZ6/trunk/libf/phylmd/fcg_gcssold_mod_h.f90
r5300 r5301 1 ! 2 ! $Id: fcg_gcssold.h 2010-08-10 17:02:56Z lahellec $ 3 ! 4 logical :: imp_fcg_gcssold,ts_fcg_gcssold,Tp_fcg_gcssold 5 logical :: Tp_ini_gcssold 6 logical :: xTurb_fcg_gcssold 1 ! Replaces fcg_gcssold.h 7 2 8 common /fcg_gcssold/imp_fcg_gcssold,ts_fcg_gcssold,Tp_fcg_gcssold, & 9 & Tp_ini_gcssold, &10 &xTurb_fcg_gcssold3 MODULE fcg_gcssold_mod_h 4 IMPLICIT NONE; PRIVATE 5 PUBLIC imp_fcg_gcssold, ts_fcg_gcssold, Tp_fcg_gcssold, Tp_ini_gcssold, xTurb_fcg_gcssold 11 6 12 !$OMP THREADPRIVATE(/fcg_gcssold/) 7 LOGICAL :: imp_fcg_gcssold, ts_fcg_gcssold, Tp_fcg_gcssold 8 LOGICAL :: Tp_ini_gcssold 9 LOGICAL :: xTurb_fcg_gcssold 13 10 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 11 !$OMP THREADPRIVATE(imp_fcg_gcssold, ts_fcg_gcssold, Tp_fcg_gcssold, Tp_ini_gcssold, xTurb_fcg_gcssold) 12 END MODULE fcg_gcssold_mod_h -
LMDZ6/trunk/libf/phylmd/flux_arp_mod_h.f90
r5300 r5301 1 ! 2 ! $Id: flux_arp.h 2010-08-04 17:02:56Z lahellec $ 1 ! Replaces flux_arh.h 3 2 ! Modif EV, 10/2020 4 !5 logical :: ok_flux_surf6 logical :: ok_prescr_ust !for prescribed ustar7 logical :: ok_prescr_beta8 logical :: ok_forc_tsurf9 3 4 MODULE flux_arp_mod_h 5 IMPLICIT NONE; PRIVATE 6 PUBLIC fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf 10 7 11 real :: fsens 12 real :: flat 13 real :: betaevap 14 real :: ust 15 real :: tg 8 LOGICAL :: ok_flux_surf 9 LOGICAL :: ok_prescr_ust !for prescribed ustar 10 LOGICAL :: ok_prescr_beta 11 LOGICAL :: ok_forc_tsurf 16 12 17 common /flux_arp/fsens,flat,ust,tg,ok_flux_surf,ok_prescr_ust,ok_prescr_beta,betaevap,ok_forc_tsurf 13 REAL :: fsens 14 REAL :: flat 15 REAL :: betaevap 16 REAL :: ust 17 REAL :: tg 18 18 19 !$OMP THREADPRIVATE(/flux_arp/) 19 !$OMP THREADPRIVATE(fsens,flat,betaevap,ust,tg,ok_flux_surf,ok_prescr_ust,ok_prescr_beta,ok_forc_tsurf) 20 END MODULE flux_arp_mod_h 20 21 21 22 -
LMDZ6/trunk/libf/phylmd/ocean_forced_mod.F90
r5285 r5301 50 50 #endif 51 51 #endif 52 USE clesphys_mod_h 52 USE flux_arp_mod_h 53 USE clesphys_mod_h 53 54 USE yomcst_mod_h 54 INCLUDE "flux_arp.h"55 55 56 56 ! Input arguments … … 275 275 #endif 276 276 #endif 277 USE clesphys_mod_h 277 USE flux_arp_mod_h 278 USE clesphys_mod_h 278 279 USE yomcst_mod_h 279 280 USE dimsoil_mod_h, ONLY: nsoilmx … … 281 282 ! INCLUDE "indicesol.h" 282 283 283 INCLUDE "flux_arp.h"284 284 285 285 ! Input arguments -
LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90
r5296 r5301 407 407 #endif 408 408 #endif 409 USE compbl_mod_h 409 USE flux_arp_mod_h 410 USE compbl_mod_h 410 411 USE yoethf_mod_h 411 412 USE clesphys_mod_h … … 423 424 424 425 INCLUDE "FCTTRE.h" 425 INCLUDE "flux_arp.h"426 426 !FC 427 427 INCLUDE "dimpft.h" -
LMDZ6/trunk/libf/phylmd/perturb_radlwsw.f90
r5268 r5301 3 3 !Case-specific radiative setup 4 4 ! 5 use dimphy 5 USE flux_arp_mod_h 6 use dimphy 6 7 IMPLICIT none 7 INCLUDE "flux_arp.h"8 8 ! 9 9 ! Arguments : -
LMDZ6/trunk/libf/phylmd/screenc_mod.f90
r5285 r5301 20 20 pref, delu, delte, delq, s_pblh, prain, tsol, pat1) 21 21 USE yomcst_mod_h 22 USE flux_arp_mod_h 22 23 IMPLICIT NONE 23 24 !----------------------------------------------------------------------- … … 73 74 REAL, dimension(klon), intent(out) :: pref, delu, delte, delq 74 75 !----------------------------------------------------------------------- 75 76 include "flux_arp.h"77 76 ! 78 77 ! Variables locales … … 124 123 pref, delm, delh, zri1, s_pblh, prain, tsol, pat1) 125 124 USE yomcst_mod_h 125 USE flux_arp_mod_h 126 126 IMPLICIT NONE 127 127 !----------------------------------------------------------------------- … … 178 178 REAL, dimension(klon) :: cdram, cdrah 179 179 !----------------------------------------------------------------------- 180 181 include "flux_arp.h" 182 ! 180 ! 183 181 ! Variables locales 184 182 INTEGER :: i -
LMDZ6/trunk/libf/phylmd/stdlevvar_mod.f90
r5285 r5301 22 22 t_2m, q_2m, t_10m, q_10m, u_10m, ustar, s_pblh, prain, tsol) 23 23 USE yoethf_mod_h 24 USE flux_arp_mod_h 24 25 IMPLICIT NONE 25 26 !------------------------------------------------------------------------- … … 73 74 REAL, DIMENSION(klon), INTENT(IN) :: tsol 74 75 !------------------------------------------------------------------------- 75 include "flux_arp.h"76 76 ! 77 77 ! Quelques constantes et options: … … 321 321 USE ioipsl_getin_p_mod, ONLY : getin_p 322 322 USE yoethf_mod_h 323 USE flux_arp_mod_h 323 324 IMPLICIT NONE 324 325 !------------------------------------------------------------------------- … … 381 382 REAL, DIMENSION(klon) :: tsol 382 383 !------------------------------------------------------------------------- 383 include "flux_arp.h"384 384 ! 385 385 ! Quelques constantes et options: -
LMDZ6/trunk/libf/phylmd/tsoilnudge_mod_h.f90
r5300 r5301 1 logical nudge_tsoil 2 integer isoil_nudge3 realTsoil_nudge, tau_soil_nudge1 MODULE tsoilnudge_mod_h 2 IMPLICIT NONE; PRIVATE 3 PUBLIC nudge_tsoil, isoil_nudge, Tsoil_nudge, tau_soil_nudge 4 4 5 common /tsoilnudge/ nudge_tsoil, isoil_nudge, Tsoil_nudge, & 6 & tau_soil_nudge 7 5 LOGICAL nudge_tsoil 6 INTEGER isoil_nudge 7 REAL Tsoil_nudge, tau_soil_nudge 8 END MODULE tsoilnudge_mod_h -
LMDZ6/trunk/libf/phylmdiso/fcg_gcssold_mod_h.f90
r5300 r5301 1 link ../phylmd/fcg_gcssold .h1 link ../phylmd/fcg_gcssold_mod_h.f90 -
LMDZ6/trunk/libf/phylmdiso/flux_arp_mod_h.f90
r5300 r5301 1 link ../phylmd/flux_arp .h1 link ../phylmd/flux_arp_mod_h.f90 -
LMDZ6/trunk/libf/phylmdiso/tsoilnudge_mod_h.f90
r5300 r5301 1 link ../phylmd/tsoilnudge .h1 link ../phylmd/tsoilnudge_mod_h.f90
Note: See TracChangeset
for help on using the changeset viewer.