Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/oasis.F90

Timestamp:

Jul 23, 2024, 3:29:36 PM (8 weeks ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/oasis.F90 (modified) (7 diffs)

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

@@ -122 +122 @@
     USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi_para_nb
     use config_ocean_skin_m, only: activate_ocean_skin
-    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
 
 ! Local variables
@@ -349 +348 @@
              WRITE(lunout,*) 'inicma : Problem with prism_def_var_proto for field : ',&
                   inforecv(jf)%name
-             abort_message=' Problem in call to prism_def_var_proto for fields to receive'
+             abort_message=' Problem in CALL to prism_def_var_proto for fields to receive'
              CALL abort_physic(modname,abort_message,1)
           ENDIF
@@ -356 +355 @@
 
 
-  IF (CPPKEY_INCA) THEN
     IF (dms_cycle_cpl .OR. n2o_cycle_cpl) THEN
        CALL init_inca_oasis(inforecv(idr_ocedms:idr_ocen2o))
     ENDIF
-  END IF
- 
+
 !************************************************************************************
 ! Atmospheric Fields to send
@@ -374 +371 @@
              WRITE(lunout,*) 'inicma : Problem with prism_def_var_proto for field : ',&
                   infosend(jf)%name
-             abort_message=' Problem in call to prism_def_var_proto for fields to send'
+             abort_message=' Problem in CALL to prism_def_var_proto for fields to send'
              CALL abort_physic(modname,abort_message,1)
           ENDIF
@@ -388 +385 @@
     CALL prism_enddef_proto(ierror)
     IF (ierror .NE. PRISM_Ok) THEN
-       abort_message=' Problem in call to prism_endef_proto'
+       abort_message=' Problem in CALL to prism_endef_proto'
        CALL abort_physic(modname,abort_message,1)
     ELSE
@@ -402 +399 @@
   SUBROUTINE fromcpl(ktime, tab_get)
 ! ======================================================================
-! L. Fairhead (09/2003) adapted From L.Z.X Li: this subroutine reads the SST 
+! L. Fairhead (09/2003) adapted From L.Z.X Li: this SUBROUTINE reads the SST
 ! and Sea-Ice provided by the coupler. Adaptation to psmile library
 !======================================================================
@@ -460 +457 @@
   SUBROUTINE intocpl(ktime, last, tab_put) 
 ! ======================================================================
-! L. Fairhead (09/2003) adapted From L.Z.X Li: this subroutine provides the 
+! L. Fairhead (09/2003) adapted From L.Z.X Li: this SUBROUTINE provides the
 ! atmospheric coupling fields to the coupler with the psmile library.
 ! IF last time step, writes output fields to binary files.