Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynredem_loc.F90

Timestamp:

Jul 23, 2024, 8:22:55 AM (4 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynredem_loc.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynredem_loc.F90

@@ -11 +11 @@
   USE strings_mod, ONLY: maxlen
   USE infotrac, ONLY: nqtot, tracers
-  USE netcdf, ONLY: nf90_create, nf90_def_dim, NF90_INQ_VARID, nf90_global,    &
+  USE netcdf, ONLY: nf90_create, nf90_def_dim, nf90_inq_varid, nf90_global,    &
                     nf90_close,  nf90_put_att, nf90_unlimited, nf90_clobber,   &
                     nf90_64bit_offset
@@ -178 +178 @@
   USE infotrac, ONLY: nqtot, tracers, type_trac
   USE control_mod
-  USE netcdf,   ONLY: nf90_open,  nf90_nowrite, nf90_get_var, NF90_INQ_VARID,  &
-                      nf90_close, NF90_WRITE,   nf90_put_var, nf90_noerr
+  USE netcdf,   ONLY: nf90_open,  nf90_nowrite, nf90_get_var, nf90_inq_varid,  &
+                      nf90_close, nf90_write,   nf90_put_var, nf90_noerr
   USE dynredem_mod, ONLY: dynredem_write_u, dynredem_write_v, dynredem_read_u, &
                           err, modname, fil, msg
@@ -213 +213 @@
   IF(mpi_rank==0) THEN !++++++++++++++++++++++++++++++++++++++++++++++++++++++++
   modname='dynredem1_loc'; fil=fichnom
-  CALL err(nf90_open(fil,NF90_WRITE,nid),"open",fil)
+  CALL err(nf90_open(fil,nf90_write,nid),"open",fil)
 
 !--- Write/extend time coordinate
   nb = nb + 1
   var="temps"
-  CALL err(NF90_INQ_VARID(nid,var,vID),"inq",var)
+  CALL err(nf90_inq_varid(nid,var,vID),"inq",var)
   CALL err(nf90_put_var(nid,vID,[time]),"put",var)
   WRITE(lunout,*)TRIM(modname)//": Saving for ", nb, time
@@ -224 +224 @@
 !--- Rewrite control table (itaufin undefined in dynredem0)
   var="controle"
-  CALL err(NF90_INQ_VARID(nid,var,vID),"inq",var)
+  CALL err(nf90_inq_varid(nid,var,vID),"inq",var)
   CALL err(nf90_get_var(nid,vID,tab_cntrl),"get",var)
   tab_cntrl(31)=DBLE(itau_dyn + itaufin)
-  CALL err(NF90_INQ_VARID(nid,var,vID),"inq",var)
+  CALL err(nf90_inq_varid(nid,var,vID),"inq",var)
   CALL err(nf90_put_var(nid,vID,tab_cntrl),"put",var)
   END IF               !++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@@ -253 +253 @@
 !$OMP MASTER      
       fil="start_trac.nc"
-      ierr=NF90_INQ_VARID(nid_trac,var,vID_trac)
+      ierr=nf90_inq_varid(nid_trac,var,vID_trac)
       dum='inq'; IF(ierr==nf90_noerr) dum='fnd'
       WRITE(lunout,*)msg(dum,var)