Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/lmdz_call_calfis.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/lmdz_call_calfis.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/lmdz_call_calfis.F90

@@ -71 +71 @@
           phis_dyn, q_dyn, flxw_dyn)
     USE dimensions_mod
-    use exner_hyb_loc_m, only: exner_hyb_loc
-    use exner_milieu_loc_m, only: exner_milieu_loc
+    use exner_hyb_loc_m, ONLY: exner_hyb_loc
+    use exner_milieu_loc_m, ONLY: exner_milieu_loc
     USE parallel_lmdz
     USE times
@@ -144 +144 @@
     jH_cur = jH_ref + start_time + &
             mod(itau + 1, day_step) / float(day_step)
-    if (jH_cur > 1.0) then
+    if (jH_cur > 1.0) THEN
       jD_cur = jD_cur + 1.
       jH_cur = jH_cur - 1.
@@ -334 +334 @@
     CALL massdair_loc(p, masse)
     !$OMP BARRIER
-    if (pressure_exner) then
+    if (pressure_exner) THEN
       CALL exner_hyb_loc(ijnb_u, ps, p, pks, pk, pkf)
     else
@@ -384 +384 @@
       ztit = 'bil phys'
       !      CALL diagedyn(ztit,2,1,1,dtphys,ucov, vcov , ps, p ,pk , teta , q(:,:,1), q(:,:,2))
-      write(lunout, *)"call_calfis: diagedyn disabled in dyn3dmem !!"
+      WRITE(lunout, *)"call_calfis: diagedyn disabled in dyn3dmem !!"
     ENDIF