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

Timestamp:

Jul 23, 2024, 8:22:55 AM (2 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/dynetat0_loc.F90 (modified) (6 diffs)

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

@@ -9 +9 @@
   USE infotrac,    ONLY: nqtot, tracers, niso, iqIsoPha, iH2O, isoName
   USE strings_mod, ONLY: maxlen, msg, strStack, real2str, int2str, strIdx
-  USE netcdf,      ONLY: nf90_open,  nf90_nowrite, nf90_inquire_dimension, NF90_INQ_VARID, &
-                         nf90_close, nf90_get_var, NF90_INQUIRE_VARIABLE,  nf90_noerr
+  USE netcdf,      ONLY: nf90_open,  nf90_nowrite, nf90_inquire_dimension, nf90_inq_varid, &
+                         nf90_close, nf90_get_var, nf90_inquire_variable,  nf90_noerr
   USE readTracFiles_mod, ONLY: new2oldH2O, newHNO3, oldHNO3, getKey
   USE control_mod, ONLY: planet_type
@@ -122 +122 @@
 
   var="temps"
-  IF(NF90_INQ_VARID(fID,var,vID)/=nf90_noerr) THEN
+  IF(nf90_inq_varid(fID,var,vID)/=nf90_noerr) THEN
     CALL msg('missing field <temps> ; trying with <Time>', modname)
     var="Time"
-    CALL err(NF90_INQ_VARID(fID,var,vID),"inq",var)
+    CALL err(nf90_inq_varid(fID,var,vID),"inq",var)
   END IF
   CALL err(nf90_get_var(fID,vID,time),"get",var)
@@ -157 +157 @@
   ll = .FALSE.
 #ifdef REPROBUS
-  ll = NF90_INQ_VARID(fID, 'HNO3tot', vID) /= nf90_noerr                                 !--- DETECT OLD REPRO start.nc FILE
+  ll = nf90_inq_varid(fID, 'HNO3tot', vID) /= nf90_noerr                                 !--- DETECT OLD REPRO start.nc FILE
 #endif
   DO iq=1,nqtot
@@ -170 +170 @@
     END IF
     !--------------------------------------------------------------------------------------------------------------------------
-    IF(NF90_INQ_VARID(fID, var, vID) == nf90_noerr .AND. .NOT.lSkip) THEN                !=== REGULAR CASE: AVAILABLE VARIABLE
+    IF(nf90_inq_varid(fID, var, vID) == nf90_noerr .AND. .NOT.lSkip) THEN                !=== REGULAR CASE: AVAILABLE VARIABLE
       CALL get_var2(var,q_glo); q(ijb_u:ije_u,:,iq)=q_glo(ijb_u:ije_u,:)
     !--------------------------------------------------------------------------------------------------------------------------
-    ELSE IF(NF90_INQ_VARID(fID, oldVar, vID) == nf90_noerr) THEN                         !=== TRY WITH ALTERNATE NAME
+    ELSE IF(nf90_inq_varid(fID, oldVar, vID) == nf90_noerr) THEN                         !=== TRY WITH ALTERNATE NAME
       CALL msg('Tracer <'//TRIM(var)//'> is missing => initialized to <'//TRIM(oldVar)//'>', modname)
       CALL get_var2(oldVar, q_glo); q(ijb_u:ije_u,:,iq)=q_glo(ijb_u:ije_u,:)
@@ -238 +238 @@
   INTEGER :: nn(3), dids(3), k, nd, ntot
 
-  CALL err(NF90_INQ_VARID(fID,var,vID),"inq",var)
-  ierr=NF90_INQUIRE_VARIABLE(fID,vID,ndims=nd)
+  CALL err(nf90_inq_varid(fID,var,vID),"inq",var)
+  ierr=nf90_inquire_variable(fID,vID,ndims=nd)
   IF(nd==1) THEN
     CALL err(nf90_get_var(fID,vID,v),"get",var); RETURN
   END IF
-  ierr=NF90_INQUIRE_VARIABLE(fID,vID,dimids=dids)
+  ierr=nf90_inquire_variable(fID,vID,dimids=dids)
   DO k=1,nd; ierr=nf90_inquire_dimension(fID,dids(k),len=nn(k)); END DO
   ntot=PRODUCT(nn(1:nd))
@@ -263 +263 @@
 
 
-  CALL err(NF90_INQ_VARID(fID,var,vID),"inq",var)
-  ierr=NF90_INQUIRE_VARIABLE(fID,vID,ndims=nd)
+  CALL err(nf90_inq_varid(fID,var,vID),"inq",var)
+  ierr=nf90_inquire_variable(fID,vID,ndims=nd)
 
   IF(nd==1) THEN
     CALL err(nf90_get_var(fID,vID,v),"get",var); RETURN
   END IF
-  ierr=NF90_INQUIRE_VARIABLE(fID,vID,dimids=dids)
+  ierr=nf90_inquire_variable(fID,vID,dimids=dids)
 
   DO k=1,nd; ierr=nf90_inquire_dimension(fID,dids(k),len=nn(k)); END DO