Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/1DUTILS.h

Timestamp:

Jul 23, 2024, 8:22:55 AM (3 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/1DUTILS.h (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/1DUTILS.h

@@ -1007 +1007 @@
  
       write(*,*) 'in abort_gcm'
-      call histclo
-!     call histclo(2)
-!     call histclo(3)
-!     call histclo(4)
-!     call histclo(5)
+      CALL histclo
+!     CALL histclo(2)
+!     CALL histclo(3)
+!     CALL histclo(4)
+!     CALL histclo(5)
       write(*,*) 'out of histclo'
       write(*,*) 'Stopping in ', modname
       write(*,*) 'Reason = ',message
-      call getin_dump
+      CALL getin_dump
 
       if (ierr .eq. 0) then
@@ -1271 +1271 @@
 !! This subroutine specifies the surface temperature to be used in 1D simulations
 
-!      USE dimphy, ONLY : klon
+!      USE dimphy, ONLY: klon
 
 !      INTEGER, INTENT(IN)                  :: knon     ! nomber of points on compressed grid
@@ -1485 +1485 @@
 !      endif
 
-!       call writefield_phy('d_t_va',d_t_va,llm)
+!       CALL writefield_phy('d_t_va',d_t_va,llm)
 
           return