Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/initdynav_loc.F

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/dyn3dmem/initdynav_loc.F (modified) (11 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/initdynav_loc.F

@@ -2 +2 @@
 ! $Id: initdynav_p.F 1279 2009-12-10 09:02:56Z fairhead $
 
-      subroutine initdynav_loc(day0,anne0,tstep,t_ops,t_wrt)
-
-#ifdef CPP_IOIPSL
+      SUBROUTINE initdynav_loc(day0,anne0,tstep,t_ops,t_wrt)
+
 ! This routine needs IOIPSL
        USE IOIPSL
-#endif
        USE parallel_lmdz
        use Write_field
@@ -56 +54 @@
       real tstep, t_ops, t_wrt
 
-#ifdef CPP_IOIPSL
 ! This routine needs IOIPSL
 C   Variables locales
@@ -78 +75 @@
       INTEGER,DIMENSION(2) :: dpl
       INTEGER,DIMENSION(2) :: dhs
-      INTEGER,DIMENSION(2) :: dhe 
-      
+      INTEGER,DIMENSION(2) :: dhe
+
       INTEGER :: dynhistave_domain_id
       INTEGER :: dynhistvave_domain_id
       INTEGER :: dynhistuave_domain_id
-      
+
       if (adjust) return
 
@@ -92 +89 @@
 C
 C  Appel a histbeg: creation du fichier netcdf et initialisations diverses
-C         
+C
 
       zan = anne0
@@ -98 +95 @@
       CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
       tau0 = itau_dyn
-      
+
       do jj = 1, jjp1
         do ii = 1, iip1
@@ -109 +106 @@
 ! Creation de 3 fichiers pour les differentes grilles horizontales
 ! Restriction de IOIPSL: seulement 2 coordonnees dans le meme fichier
-! Grille Scalaire       
+! Grille Scalaire
 
       jjb=jj_begin
@@ -126 +123 @@
       CALL flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe,
      .                 'box',dynhistave_domain_id)
-             
+
       CALL histbeg(dynhistave_file,iip1, rlong(:,1), jjn,
      .             rlat(1,jjb:jje), 1, iip1, 1, jjn,tau0,
@@ -143 +140 @@
       IF (pole_sud) jjn=jjn-1
       IF (pole_sud) jje=jje-1
-      
+
       do jj = jjb, jje
         do ii = 1, iip1
@@ -167 +164 @@
      .             zjulian, tstep, vhoriid,
      .             histvaveid,dynhistvave_domain_id)
-     
+
 ! Grille U
 
@@ -192 +189 @@
       CALL flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe,
      .                 'box',dynhistuave_domain_id)
-             
+
       CALL histbeg(dynhistuave_file,iip1, rlong(:,1), jjn,
      .             rlat(1,jjb:jje), 1, iip1, 1, jjn,tau0,
      .             zjulian, tstep, uhoriid,
      .             histuaveid,dynhistuave_domain_id)
-     
-     
+
+
 C
 C  Appel a histvert pour la grille verticale
@@ -281 +278 @@
       CALL histend(histuaveid)
       CALL histend(histvaveid)
-#else
-      write(lunout,*)'initdynav_loc: Needs IOIPSL to function'
-#endif
-! #endif of #ifdef CPP_IOIPSL
       end