Changeset 5367 for LMDZ6/trunk/libf/dynphy_lonlat

Timestamp:

Dec 3, 2024, 10:40:13 AM (2 months ago)

Author:

abarral

Message:

(WIP) Turn implicit into explicit declarations

Location:

LMDZ6/trunk/libf/dynphy_lonlat

Files:

• calfis_loc.F90 (modified) (5 diffs)
• gr_dyn_fi_p.F90 (modified) (2 diffs)
• gr_fi_dyn_p.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F90

@@ -4 +4 @@
 !
 !
+#ifdef CPP_PARA
+
 SUBROUTINE calfis_loc(lafin, &
         jD_cur, jH_cur, &
@@ -37 +39 @@
   USE lmdz_mpi
 
-#ifdef CPP_PARA
   USE parallel_lmdz,ONLY:omp_chunk,using_mpi,jjb_u,jje_u,jjb_v,jje_v &
         ,jj_begin_dyn=>jj_begin,jj_end_dyn=>jj_end
@@ -43 +44 @@
   Use Write_field_p
   USE Times
-#endif
   USE infotrac, ONLY: nqtot, tracers
   USE control_mod, ONLY: planet_type, nsplit_phys
@@ -50 +50 @@
   USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
-#ifdef CPP_PARA
   USE iniprint_mod_h
   USE comgeom2_mod_h
@@ -1208 +1207 @@
         "calfis_p: for now can only work with parallel physics", 1)
 END IF
+END SUBROUTINE calfis_loc
 #endif
-  ! of #ifdef CPP_PARA
-END SUBROUTINE calfis_loc

LMDZ6/trunk/libf/dynphy_lonlat/gr_dyn_fi_p.F90

@@ -2 +2 @@
 ! $Id$
 !
+#ifdef CPP_PARA
 SUBROUTINE gr_dyn_fi_p(nfield,im,jm,ngrid,pdyn,pfi)
-#ifdef CPP_PARA
   ! Interface with parallel physics,
   USE mod_interface_dyn_phys
@@ -39 +39 @@
   ENDDO
 !$OMP END DO NOWAIT
-#endif
   ! of #ifdef CPP_PARA
   RETURN
 END SUBROUTINE gr_dyn_fi_p
+#endif

LMDZ6/trunk/libf/dynphy_lonlat/gr_fi_dyn_p.F90

@@ -2 +2 @@
 ! $Id$
 !
+
+#ifdef CPP_PARA
 SUBROUTINE gr_fi_dyn_p(nfield,ngrid,im,jm,pfi,pdyn)
-#ifdef CPP_PARA
   ! Interface with parallel physics,
   USE mod_interface_dyn_phys
@@ -51 +52 @@
   ENDDO
 !$OMP END DO NOWAIT
-#endif
   ! of #ifdef CPP_PARA
   RETURN
 END SUBROUTINE gr_fi_dyn_p
+#endif