Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/iostart.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/phylmd/iostart.F90 (modified) (12 diffs)

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

@@ -70 +70 @@
     
     IF (is_mpi_root .AND. is_omp_root) THEN
-      ierr=NF90_INQ_VARID(nid_start,Field_name,varid)
+      ierr=nf90_inq_varid(nid_start,Field_name,varid)
       IF (ierr==nf90_noerr) THEN
         Inquire_field=.TRUE.
@@ -146 +146 @@
     IF (is_master) THEN
   
-      ierr=NF90_INQ_VARID(nid_start,Field_name,varid)
+      ierr=nf90_inq_varid(nid_start,Field_name,varid)
       
       IF (ierr==nf90_noerr) THEN
@@ -173 +173 @@
       IF (.NOT. tmp_found) THEN
         PRINT*, 'phyetat0: Le champ <'//field_name//'> est absent'
-        call abort_physic("", "", 1)
+        CALL abort_physic("", "", 1)
       ENDIF
     ENDIF
@@ -193 +193 @@
               IF (ierr/=nf90_noerr) THEN
                  PRINT*, 'phyetat0: Lecture echouee aussi en 2D pour <'//field_name//'>'
-                 call abort_physic("", "", 1)
+                 CALL abort_physic("", "", 1)
               ELSE
                  PRINT*, 'phyetat0: La variable <'//field_name//'> lu sur surface seulement'!, selon ancien format, le reste mis a zero'
               END IF
            ELSE
-              call abort_physic("", "", 1)
+              CALL abort_physic("", "", 1)
            ENDIF
          ENDIF
@@ -267 +267 @@
     IF (is_mpi_root .AND. is_omp_root) THEN
   
-      ierr=NF90_INQ_VARID(nid_start,var_name,varid)
+      ierr=nf90_inq_varid(nid_start,var_name,varid)
       
       IF (ierr==nf90_noerr) THEN
@@ -273 +273 @@
         IF (ierr/=nf90_noerr) THEN
           PRINT*, 'phyetat0: Lecture echouee pour <'//var_name//'>'
-          call abort_physic("", "", 1)
+          CALL abort_physic("", "", 1)
         ENDIF
         tmp_found=.TRUE.
@@ -293 +293 @@
       IF (.NOT. tmp_found) THEN
         PRINT*, 'phyetat0: La variable champ <'//var_name//'> est absente'
-        call abort_physic("", "", 1)
+        CALL abort_physic("", "", 1)
       ENDIF
     ENDIF
@@ -425 +425 @@
       ENDIF
          
-!      ierr = NF90_REDEF (nid_restart)
+!      ierr = nf90_redef (nid_restart)
       ierr = nf90_def_var (nid_restart, field_name, nf90_format,(/ idim /),nvarid)
       IF (LEN_TRIM(title) > 0) ierr = nf90_put_att (nid_restart,nvarid,"title", title)
@@ -453 +453 @@
        ENDDO
 
-       ierr = NF90_INQ_VARID(nid_restart, field_name, nvarid)
+       ierr = nf90_inq_varid(nid_restart, field_name, nvarid)
        ierr = nf90_put_var(nid_restart,nvarid,RESHAPE(field_glo,(/klon_glo*field_size/)))
       ENDIF
@@ -528 +528 @@
       IF (var_size/=length) THEN
         PRINT *, "erreur phyredem : probleme de dimension"
-        call abort_physic("", "", 1)
+        CALL abort_physic("", "", 1)
       ENDIF
 
@@ -534 +534 @@
       IF (pass==1) THEN
         
-!      ierr = NF90_REDEF (nid_restart)
+!      ierr = nf90_redef (nid_restart)
 
         ierr = nf90_def_var (nid_restart, var_name, nf90_format,(/ idim1 /),nvarid)
@@ -542 +542 @@
     ! second pass : write     
       ELSE IF (pass==2) THEN 
-        ierr = NF90_INQ_VARID(nid_restart, var_name, nvarid)
+        ierr = nf90_inq_varid(nid_restart, var_name, nvarid)
         ierr = nf90_put_var(nid_restart,nvarid,var)
       ENDIF