Changeset 5250 for LMDZ6/trunk


Ignore:
Timestamp:
Oct 22, 2024, 11:55:35 AM (2 months ago)
Author:
abarral
Message:

Wrap uses of cpp key CPP_PHYS

Location:
LMDZ6/trunk/libf
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d/gcm.F90

    r4619 r5250  
    2525  USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, r, rad
    2626  USE logic_mod, ONLY: ecripar, iflag_phys, read_start
     27  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    2728
    2829!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    … …  
    3031  ! A nettoyer. On ne veut qu'une ou deux routines d'interface
    3132  ! dynamique -> physique pour l'initialisation
    32 #ifdef CPP_PHYS
    3333  USE iniphysiq_mod, ONLY: iniphysiq
    34 #endif
    3534!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    3635
    … …  
    406405
    407406  IF ((iflag_phys==1).or.(iflag_phys>=100)) THEN
    408      ! Physics:
    409 #ifdef CPP_PHYS
    410      CALL iniphysiq(iim,jjm,llm, &
    411           (jjm-1)*iim+2,comm_lmdz, &
    412           daysec,day_ini,dtphys/nsplit_phys, &
    413           rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp, &
    414           iflag_phys)
    415 #endif
     407    ! Physics:
     408    IF (CPPKEY_PHYS) THEN
     409      CALL iniphysiq(iim, jjm, llm, &
     410              (jjm - 1) * iim + 2, comm_lmdz, &
     411              daysec, day_ini, dtphys / nsplit_phys, &
     412              rlatu, rlatv, rlonu, rlonv, aire, cu, cv, rad, g, r, cpp, &
     413              iflag_phys)
     414    END IF
    416415  ENDIF ! of IF ((iflag_phys==1).or.(iflag_phys>=100))
    417416

  • LMDZ6/trunk/libf/dyn3d/leapfrog.F90

    r5246 r5250  
    2727        start_time,dt
    2828  USE strings_mod, ONLY: msg
     29  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    2930
    3031  IMPLICIT NONE
    … …  
    462463#endif
    463464  ! #endif of #ifdef CPP_IOIPSL
    464 #ifdef CPP_PHYS
     465IF (CPPKEY_PHYS) THEN
    465466     CALL calfis( lafin , jD_cur, jH_cur, &
    466467           ucov,vcov,teta,q,masse,ps,p,pk,phis,phi , &
    467468           du,dv,dteta,dq, &
    468469           flxw,dufi,dvfi,dtetafi,dqfi,dpfi  )
    469 #endif
     470END IF
    470471   ! ajout des tendances physiques:
    471472   ! ------------------------------

  • LMDZ6/trunk/libf/dyn3d/replay3d.F90

    r4589 r5250  
    2828  ! A nettoyer. On ne veut qu'une ou deux routines d'interface
    2929  ! dynamique -> physique pour l'initialisation
    30 #ifdef CPP_PHYS
    3130  USE iniphysiq_mod, ONLY: iniphysiq
    32 #endif
    3331!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    3432

  • LMDZ6/trunk/libf/dyn3dmem/bands.F90

    r2771 r5250  
    381381    subroutine AdjustBands_physic
    382382      use times
    383 #ifdef CPP_PHYS
    384383! Ehouarn: what follows is only related to // physics
    385384      USE mod_phys_lmdz_para, only : klon_mpi_para_nb
    386 #endif
     385
    387386      USE parallel_lmdz
     387      USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
     388
    388389      implicit none
    389390
    … …  
    408409      medium=medium/mpi_size     
    409410      NbTot=0
    410 #ifdef CPP_PHYS
     411IF (CPPKEY_PHYS) THEN
    411412      do i=0,mpi_size-1
    412413        Inc(i)=nint(klon_mpi_para_nb(i)*(medium-value(i))/value(i))
    413         NbTot=NbTot+Inc(i) 
    414       enddo
    415      
     414        NbTot=NbTot+Inc(i)
     415      enddo
     416
    416417      if (NbTot>=0) then
    417418        Sgn=1
    … …  
    420421        NbTot=-NbTot
    421422      endif
    422      
     423
    423424      Index=0
    424425      do i=1,NbTot
    … …  
    427428        if (Index>mpi_size-1) Index=0
    428429      enddo
    429      
     430
    430431      do i=0,mpi_size-1
    431432        distrib_phys(i)=klon_mpi_para_nb(i)+inc(i)
    432433      enddo
    433 #endif 
     434END IF
    434435         
    435436    end subroutine AdjustBands_physic

  • LMDZ6/trunk/libf/dyn3dmem/call_calfis_mod.F90

    r5084 r5250  
    8888  USE comvert_mod, ONLY: ap, bp, pressure_exner
    8989  USE temps_mod, ONLY: day_ini, day_ref, jd_ref, jh_ref, start_time
     90  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
     91
    9092 
    9193  IMPLICIT NONE
    … …  
    230232  !$OMP BARRIER
    231233
    232 #ifdef CPP_PHYS
     234IF (CPPKEY_PHYS) THEN
    233235    CALL calfis_loc(lafin ,jD_cur, jH_cur,                       &
    234236                     ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,   &
    235237                     du,dv,dteta,dq,                             &
    236238                     flxw, dufi,dvfi,dtetafi,dqfi,dpfi  )
    237 #endif
     239END IF
    238240    ijb=ij_begin
    239241    ije=ij_end 

  • LMDZ6/trunk/libf/dyn3dmem/gcm.F90

    r4996 r5250  
    2020  USE control_mod
    2121
    22 #ifdef CPP_PHYS
    2322  USE iniphysiq_mod, ONLY: iniphysiq
    24 #endif
    2523  USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, r, rad
    2624  USE logic_mod ! all of it, because of copyin clause when calling leapfrog
    … …  
    2927                       dt,hour_ini,itaufin
    3028  USE mod_xios_dyn3dmem, ONLY: xios_dyn3dmem_init
     29  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
     30
    3131
    3232  IMPLICIT NONE
    … …  
    415415  IF ((iflag_phys==1).or.(iflag_phys>=100)) THEN
    416416     ! Physics:
    417 #ifdef CPP_PHYS
     417IF (CPPKEY_PHYS) THEN
    418418     CALL iniphysiq(iim,jjm,llm, &
    419419          distrib_phys(mpi_rank),comm_lmdz, &
    … …  
    421421          rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp, &
    422422          iflag_phys)
    423 #endif
     423END IF
    424424  ENDIF ! of IF ((iflag_phys==1).or.(iflag_phys>=100))
    425425

  • LMDZ6/trunk/libf/dynphy_lonlat/calfis.F90

    r5246 r5250  
    3131  USE infotrac, ONLY: nqtot, tracers
    3232  USE control_mod, ONLY: planet_type, nsplit_phys
    33 #ifdef CPP_PHYS
    3433  USE callphysiq_mod, ONLY: call_physiq
    35 #endif
    3634  USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
    3735  USE comvert_mod, ONLY: preff, presnivs
     36  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    3837
    3938  IMPLICIT NONE
    … …  
    475474  zdqfic(:,:,:)=0.
    476475
    477 #ifdef CPP_PHYS
     476IF (CPPKEY_PHYS) THEN
    478477
    479478   do isplit=1,nsplit_phys
    … …  
    534533   enddo ! of do isplit=1,nsplit_phys
    535534
    536 #endif
     535END IF
    537536  ! of #ifdef CPP_PHYS
    538537

  • LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F90

    r5246 r5250  
    2626        pdqfi, &
    2727        pdpsfi)
    28 #ifdef CPP_PHYS
    29   ! If using physics
    30   !
     28
    3129  !    Auteur :  P. Le Van, F. Hourdin
    3230  !   .........
    … …  
    3735  USE mod_interface_dyn_phys
    3836  USE IOPHY
    39 #endif
    4037  USE lmdz_mpi
    4138
    … …  
    4946  USE infotrac, ONLY: nqtot, tracers
    5047  USE control_mod, ONLY: planet_type, nsplit_phys
    51 #ifdef CPP_PHYS
    5248  USE callphysiq_mod, ONLY: call_physiq
    53 #endif
    5449  USE comvert_mod, ONLY: preff, presnivs
    5550  USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
     51  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
     52
    5653
    5754#ifdef CPP_PARA
    … …  
    148145  REAL,INTENT(OUT) :: pdpsfi(iip1,jjb_u:jje_u) ! tendency on surface pressure (Pa/s)
    149146
    150 #ifdef CPP_PHYS
    151147  ! Ehouarn: for now calfis_p needs some informations from physics to compile
    152148  !    Local variables :
    … …  
    193189  ! Introduction du splitting (FH)
    194190  ! Question pour Yann :
    195   ! J'ai été surpris au début que les tableaux zufi_omp, zdufi_omp n'co soitent
     191  ! J'ai �t� surpris au d�but que les tableaux zufi_omp, zdufi_omp n'co soitent
    196192  ! en SAVE. Je crois comprendre que c'est parce que tu voulais qu'il
    197193  ! soit allocatable (plutot par exemple que de passer une dimension
    198   ! dépendant du process en argument des routines) et que, du coup,
    199   ! le SAVE évite d'avoir à refaire l'allocation à chaque appel.
     194  ! d�pendant du process en argument des routines) et que, du coup,
     195  ! le SAVE �vite d'avoir � refaire l'allocation � chaque appel.
    200196  ! Tu confirmes ?
    201   ! J'ai suivi le même principe pour les zdufic_omp
     197  ! J'ai suivi le m�me principe pour les zdufic_omp
    202198  ! Mais c'est surement bien que tu controles.
    203199  !
    … …  
    238234  INTEGER :: offset
    239235  INTEGER :: jjb,jje
     236
     237  IF (CPPKEY_PHYS) THEN
    240238
    241239  !
    … …  
    721719  zdqfic_omp(:,:,:)=0.
    722720
    723 #ifdef CPP_PHYS
     721IF (CPPKEY_PHYS) THEN
    724722  do isplit=1,nsplit_phys
    725723
    … …  
    752750  enddo
    753751
    754 #endif
     752END IF
    755753  ! of #ifdef CPP_PHYS
    756754
    … …  
    12101208  firstcal = .FALSE.
    12111209
    1212 #else
     1210ELSE
    12131211  call abort_gcm("calfis_loc", &
    12141212        "calfis_p: for now can only work with parallel physics", 1)
    1215 #endif
    1216   ! of #ifdef CPP_PHYS
     1213END IF
    12171214#endif
    12181215  ! of #ifdef CPP_PARA
Note: See TracChangeset for help on using the changeset viewer.