Changeset 4237 for dynamico_lmdz

Timestamp:

May 18, 2020, 12:45:00 PM (5 years ago)

Author:

dubos

Message:

simple_physics : update DYNAMICO interface

Location:

dynamico_lmdz/simple_physics/phyparam

Files:

• DYNAMICO/icosa_phyparam_mod.F90 (modified) (2 diffs)
• physics/convection.F90 (modified) (1 diff)

dynamico_lmdz/simple_physics/phyparam/DYNAMICO/icosa_phyparam_mod.F90

@@ -64 +64 @@
 
       CALL init_comgeomfi(ngrid, llm, inout%lon, inout%lat)
-      CALL iniphyparam(ngrid, llm,                &
-           &           unjours, dayref, timestep, & 
-           &           radius, g, cpp*kappa, cpp)
+      CALL iniphyparam(timestep, unjours, radius, g, cpp*kappa, cpp)
 
     END SUBROUTINE init_physics
@@ -136 +134 @@
 !--------------------------------------- Logging ------------------------------------
 
-    SUBROUTINE flush_log_(lev, tag, buf)
+    SUBROUTINE flush_log_(lev, taglen, tag, buflen, bufsize, buf) BIND(C)
       USE mpipara, ONLY : is_mpi_master
       USE logging, ONLY : dbtag
-      INTEGER, INTENT(IN) :: lev
-      CHARACTER(*), INTENT(IN) :: tag, buf(:)
+      USE, INTRINSIC :: iso_c_binding, ONLY : c_char, c_null_char, c_int
+      INTEGER(c_int), INTENT(IN), VALUE :: lev, taglen, buflen, bufsize
+      CHARACTER(KIND=c_char), INTENT(IN) :: tag(taglen), buf(buflen, bufsize)
+      CHARACTER(buflen+1) :: line
+      !    SUBROUTINE flush_log_(lev, tag, buf)
+      !      INTEGER, INTENT(IN) :: lev
+      !      CHARACTER(*), INTENT(IN) :: tag, buf(:)
       CHARACTER(100) :: prefix
       INTEGER :: i
-
+      
       IF(is_mpi_master) THEN
          WRITE(prefix,*) '[', dbtag(lev), ' ', tag, ']'
-         DO i=1, SIZE(buf)
-            WRITE(log_unit,*) TRIM(prefix), TRIM(buf(i))
+         DO i=1, bufsize
+            WRITE(line,*) buf(:,i)
+            WRITE(log_unit,*) TRIM(prefix), TRIM(line)
          END DO
          WRITE(log_unit, *) ''

dynamico_lmdz/simple_physics/phyparam/physics/convection.F90

@@ -24 +24 @@
   SUBROUTINE adjust_onecolumn(ngrid, nlay, i, sig, dsig, sdsig, zu2, zv2, zh2)
     INTEGER, INTENT(IN) :: ngrid, nlay, i
-    REAL, INTENT(OUT)   :: sig(nlay+1), sdsig(nlay), dsig(nlay)
+    REAL, INTENT(IN)    :: sig(nlay+1), sdsig(nlay), dsig(nlay)
     REAL, INTENT(INOUT) :: zu2(ngrid,nlay), zv2(ngrid,nlay), zh2(ngrid,nlay)