Changeset 5302 for LMDZ6/trunk/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h

Timestamp:

Oct 30, 2024, 6:19:06 PM (39 hours ago)

Author:

abarral

Message:

Turn compar1d.h date_cas.h into module
Move fcg_racmo.h to obsolete

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h

@@ -1556 +1556 @@
      &             ,ts_prof,plev_prof,t_prof,q_prof,u_prof,v_prof,w_prof   &
      &             ,ht_prof,vt_prof,hq_prof,vq_prof)
+     USE compar1d_mod_h
         implicit none
 
@@ -1566 +1567 @@
 ! dt_toga: total time interval (in sec) between 2 forcing data (e.g. 6h for TOGA-COARE)
 !---------------------------------------------------------------------------------------
-
-        INCLUDE "compar1d.h"
 
 ! inputs:
@@ -1698 +1697 @@
      &             ,ustar_prof,psurf_prof,ug_prof,vg_prof                 &
      &             ,ht_prof,hq_prof,hu_prof,hv_prof,w_prof,omega_prof)
+     USE compar1d_mod_h
         implicit none
 
@@ -1708 +1708 @@
 ! dt_dice: total time interval (in sec) between 2 forcing data (e.g. 30min. for Dice)
 !---------------------------------------------------------------------------------------
-
-        INCLUDE "compar1d.h"
 
 ! inputs:
@@ -1811 +1809 @@
      &             ,ug_gabls4,vg_gabls4,ht_gabls4,hq_gabls4,tg_gabls4                          &
      &             ,ug_prof,vg_prof,ht_prof,hq_prof,tg_prof)
+     USE compar1d_mod_h
         implicit none
 
@@ -1821 +1820 @@
 ! dt_gabls4: total time interval (in sec) between 2 forcing data (e.g. 60min. for gabls4)
 !---------------------------------------------------------------------------------------
-
-        INCLUDE "compar1d.h"
 
 ! inputs: