Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_slab_mod.F90

Timestamp:

Aug 3, 2024, 2:56:58 PM (3 months ago)

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_slab_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_slab_mod.F90

@@ -152 +152 @@
     nslay = 2
     CALL getin_p('slab_layers', nslay)
-    print *, 'number of slab layers : ', nslay
+    PRINT *, 'number of slab layers : ', nslay
     ! Layer thickness
     ALLOCATE(slabh(nslay), stat = error)
@@ -172 +172 @@
     cpl_pas = NINT(86400. / dtime * 1.0) ! une fois par jour
     CALL getin_p('cpl_pas', cpl_pas)
-    print *, 'cpl_pas', cpl_pas
+    PRINT *, 'cpl_pas', cpl_pas
 
     ! Horizontal diffusion