Changeset 5250 for LMDZ6/trunk/libf/dyn3dmem/call_calfis_mod.F90

Timestamp:

Oct 22, 2024, 11:55:35 AM (4 months ago)

Author:

abarral

Message:

Wrap uses of cpp key CPP_PHYS

File:

• LMDZ6/trunk/libf/dyn3dmem/call_calfis_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3dmem/call_calfis_mod.F90

@@ -88 +88 @@
   USE comvert_mod, ONLY: ap, bp, pressure_exner
   USE temps_mod, ONLY: day_ini, day_ref, jd_ref, jh_ref, start_time
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
+
   
   IMPLICIT NONE
@@ -230 +232 @@
   !$OMP BARRIER
 
-#ifdef CPP_PHYS
+IF (CPPKEY_PHYS) THEN
     CALL calfis_loc(lafin ,jD_cur, jH_cur,                       &
                      ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,   &
                      du,dv,dteta,dq,                             &
                      flxw, dufi,dvfi,dtetafi,dqfi,dpfi  )
-#endif
+END IF
     ijb=ij_begin
     ije=ij_end