Changeset 5098 for LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/coagulate.F90

Timestamp:

Jul 22, 2024, 6:53:44 PM (4 months ago)

Author:

abarral

Message:

Remove CRAY key (obsolete calls to functions that don't exist anymore, bugs in some implementations, irrelevant now)
Replace usage of CPP_XIOS key by using_xios logical
Remove always unused testcpu bits
Replace most uses of CPP_StratAer by the corresponding logical defined in lmdz_cppkeys_wrapper.F90 [this breaks iso compilation because phyiso doesn't define all aerosols - to be fixed later]
Replaces uses of include "yomcst.h" by the lmdz_yomcst.f90 module in .[fF]90 files

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/coagulate.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/coagulate.F90

@@ -28 +28 @@
   USE phys_local_var_mod, ONLY: DENSO4, DENSO4B, f_r_wet, f_r_wetB
   USE strataer_local_var_mod, ONLY: flag_new_strat_compo
+  USE lmdz_yomcst
   
   IMPLICIT NONE
@@ -83 +84 @@
   REAL                                          :: EvdW
 
-  include "YOMCST.h"
-
 ! ff(i,j,k): Volume fraction of Vi,j that is partitioned to each model bin k
 ! just need to be calculated in model initialization because mdw(:) size is fixed