Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/create_etat0_limit_unstruct_mod.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (3 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/phylmd/create_etat0_limit_unstruct_mod.F90 (modified) (2 diffs)

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

@@ -55 +55 @@
   USE create_limit_unstruct_mod, ONLY: create_limit_unstruct
   USE phyaqua_mod, ONLY: iniaqua
-  USE phys_cal_mod, only: year_len
+  USE phys_cal_mod, ONLY: year_len
   USE lmdz_phys_para, ONLY: is_omp_master
   USE lmdz_ioipsl_getin_p, ONLY: getin_p
@@ -84 +84 @@
                 CALL MPI_Finalize(ierr)
                 abort_message='create_etat0_limit_unstruct, Initial state file are created, all is fine' 
-                write(lunout,*) abort_message
+                WRITE(lunout,*) abort_message
                 STOP 0
 !                CALL abort_physic(modname,abort_message,0)