Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynredem_mod.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynredem_mod.F90 (modified) (10 diffs)

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

@@ -18 +18 @@
 
 !===============================================================================
-!
+
 SUBROUTINE dynredem_write_u(ncid,id,var,ll)
-!
+
 !===============================================================================
   IMPLICIT NONE
@@ -63 +63 @@
   
 END SUBROUTINE dynredem_write_u
-!
-!===============================================================================
-
-
-!===============================================================================
-!
+
+!===============================================================================
+
+
+!===============================================================================
+
 SUBROUTINE dynredem_write_v(ncid,id,var,ll)
-!
+
 !===============================================================================
   IMPLICIT NONE
@@ -113 +113 @@
   
 END SUBROUTINE dynredem_write_v
-!
-!===============================================================================
-
-
-!===============================================================================
-!
+
+!===============================================================================
+
+
+!===============================================================================
+
 SUBROUTINE dynredem_read_u(ncid,id,var,ll)
-!
+
 !===============================================================================
   IMPLICIT NONE
@@ -149 +149 @@
     !$OMP MASTER
       start(3)=l
-      CALL err(NF90_GET_VAR(ncid,nvarid,var_glo,start,count),"get",id)
+      CALL err(nf90_get_var(ncid,nvarid,var_glo,start,count),"get",id)
     !$OMP END MASTER
     END IF
@@ -165 +165 @@
   
 END SUBROUTINE dynredem_read_u    
-!
-!===============================================================================
-
-
-!===============================================================================
-!
+
+!===============================================================================
+
+
+!===============================================================================
+
 SUBROUTINE cre_var(ncid,var,title,did,units)
-!
+
 !===============================================================================
   IMPLICIT NONE
@@ -187 +187 @@
 
 END SUBROUTINE cre_var
-!
-!===============================================================================
-
-
-!===============================================================================
-!
+
+!===============================================================================
+
+
+!===============================================================================
+
 SUBROUTINE put_var(ncid,var,title,did,v,units)
-!
+
 !===============================================================================
   IMPLICIT NONE
@@ -210 +210 @@
   CALL err(NF90_ENDDEF(ncid))
   nd=SIZE(did)
-  DO k=1,nd; CALL err(NF90_INQUIRE_DIMENSION(ncid,did(k),len=nn(k))); END DO
+  DO k=1,nd; CALL err(nf90_inquire_dimension(ncid,did(k),len=nn(k))); END DO
   IF(nd==1) CALL err(NF90_PUT_VAR(ncid,nvarid,RESHAPE(v,nn(1:1))),var)
   IF(nd==2) CALL err(NF90_PUT_VAR(ncid,nvarid,RESHAPE(v,nn(1:2))),var)
   CALL err(NF90_REDEF(ncid))
 END SUBROUTINE put_var
-!
-!===============================================================================
-
-
-!===============================================================================
-!
+
+!===============================================================================
+
+
+!===============================================================================
+
 FUNCTION msg(typ,nam)
-!
+
 !===============================================================================
   IMPLICIT NONE
@@ -242 +242 @@
 
 END FUNCTION msg
-!
-!===============================================================================
-
-
-!===============================================================================
-!
+
+!===============================================================================
+
+
+!===============================================================================
+
 SUBROUTINE err(ierr,typ,nam)
-!
+
 !===============================================================================
   IMPLICIT NONE
@@ -258 +258 @@
   CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: nam    !--- FIELD NAME
 !===============================================================================
-  IF(ierr==NF90_NoERR) RETURN
+  IF(ierr==nf90_noerr) RETURN
   IF(.NOT.PRESENT(typ)) THEN
     CALL ABORT_gcm(modname,NF90_STRERROR(ierr),ierr)
@@ -266 +266 @@
 
 END SUBROUTINE err
-!
+
 !===============================================================================