Changeset 5281 for LMDZ6/trunk/libf/dyn3dmem/call_dissip_mod.f90

Timestamp:

Oct 28, 2024, 11:17:48 AM (4 days ago)

Author:

abarral

Message:

Turn comgeom.h comgeom2.h into modules

File:

• LMDZ6/trunk/libf/dyn3dmem/call_dissip_mod.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/dyn3dmem/call_dissip_mod.f90

@@ -47 +47 @@
     CALL allocate_u(dtetadis,llm,d)
     CALL allocate_u(dtetaecdt,llm,d)
-    
-    
+
+
     CALL dissip_allocate
-    
+
   END SUBROUTINE call_dissip_allocate
-  
+
   SUBROUTINE call_dissip_switch_dissip(dist)
   USE allocate_field_mod
@@ -76 +76 @@
 
     CALL dissip_switch_dissip(dist)
-    
-  END SUBROUTINE call_dissip_switch_dissip  
-  
-
-  
+
+  END SUBROUTINE call_dissip_switch_dissip
+
+
+
   SUBROUTINE call_dissip(ucov_dyn,vcov_dyn,teta_dyn,p_dyn,pk_dyn,ps_dyn)
   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
@@ -92 +92 @@
   USE write_field_loc
   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
+  USE comgeom_mod_h
   IMPLICIT NONE
-    INCLUDE 'comgeom.h'
     REAL,INTENT(INOUT) :: ucov_dyn(ijb_u:ije_u,llm) ! covariant zonal wind
     REAL,INTENT(INOUT) :: vcov_dyn(ijb_v:ije_v,llm) ! covariant meridional wind