Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/suinit.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/rrtm/suinit.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/suinit.F90

@@ -94 +94 @@
 !          NDLNPR=1: formulation of delta used in non hydrostatic model,
 NDLNPR=0
-print *,'SUINIT: RHYDR0 NDLNPR',RHYDR0,NDLNPR
+PRINT *,'SUINIT: RHYDR0 NDLNPR',RHYDR0,NDLNPR
 
 !----------------------------------------------------------------
@@ -114 +114 @@
 NSSSSS=0  ! LMDZ demarre tjrs a 00h -- MPL 15.04.09
 CALL SUCST(6,NINDAT,NSSSSS,1)
-print *,'SUINIT: NINDAT, NSSSSS',NINDAT, NSSSSS
+PRINT *,'SUINIT: NINDAT, NSSSSS',NINDAT, NSSSSS
 
 IF (LLDEBUG) THEN