Changeset 5302 for LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read_std.f90

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/mod_1D_cases_read_std.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read_std.f90

@@ -90 +90 @@
   SUBROUTINE read_SCM_cas
     use netcdf, only: nf90_get_var
+    USE date_cas_mod_h
     implicit none
-    INCLUDE "date_cas.h"
 
     INTEGER nid,rid,ierr
@@ -330 +330 @@
     !program reading forcing of the case study
     use netcdf, only: nf90_get_var
+    USE compar1d_mod_h
     implicit none
-    INCLUDE "compar1d.h"
 
     integer ntime,nlevel,k,t
@@ -653 +653 @@
        ,lat_prof_cas,sens_prof_cas                                        &
        ,ustar_prof_cas,uw_prof_cas,vw_prof_cas,q1_prof_cas,q2_prof_cas,tkes_prof_cas)
-
-
-
-
-
-
+    USE compar1d_mod_h
+    USE date_cas_mod_h
     implicit none
 
@@ -669 +665 @@
     ! pdt_cas: total time interval (in sec) between 2 forcing data
     !---------------------------------------------------------------------------------------
-
-    INCLUDE "compar1d.h"
-    INCLUDE "date_cas.h"
 
     ! inputs: