Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/iotd_ecrit.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/iotd_ecrit.F90 (modified) (9 diffs)

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

@@ -58 +58 @@
 ! Ajouts
       integer, save :: ntime=0
-      integer :: idim,varid
+      INTEGER :: idim,varid
       character (len =50):: fichnom
       integer, dimension(4) :: id
@@ -65 +65 @@
 
 
-       if (n_names_iotd_def>0 .and..not.any(names_iotd_def==nom)) return
+       if (n_names_iotd_def>0 .and..not.any(names_iotd_def==nom)) RETURN
 !***************************************************************
 ! Initialisation of 'firstnom' and create/open the "diagfi.nc" NetCDF file
@@ -83 +83 @@
 
         zx(1:imax*jmax*llm)=px(1:imax*jmax*llm)
-        if (firstnom =='1234567890') then
+        if (firstnom =='1234567890') THEN
             firstnom=nom
         endif
@@ -90 +90 @@
 
 !! Quand on tombe sur la premiere variable on ajoute un pas de temps
-        if (nom==firstnom) then
+        if (nom==firstnom) THEN
         ! We have identified a "first call" (at given date)
 
@@ -114 +114 @@
 !        PRINT*,'IOTD Date ,varid,nid,ntime,date',varid,nid,ntime,date
 
-           if (ierr/=nf90_noerr) then
-              write(*,*) "***** PUT_VAR matter in writediagfi_nc"
-              write(*,*) "***** with time"
-              write(*,*) 'ierr=', ierr   
+           if (ierr/=nf90_noerr) THEN
+              WRITE(*,*) "***** PUT_VAR matter in writediagfi_nc"
+              WRITE(*,*) "***** with time"
+              WRITE(*,*) 'ierr=', ierr
            endif
 
-!          write(6,*)'WRITEDIAGFI: date= ', date
+!          WRITE(6,*)'WRITEDIAGFI: date= ', date
         end if ! of if (nom.eq.firstnom)
 
@@ -126 +126 @@
 !Case of a 3D variable
 !---------------------
-        if (llm==lmax) then
+        if (llm==lmax) THEN
            ndim=4
            corner(1)=1
@@ -142 +142 @@
 !---------------------
 
-        else if (llm==1) then
+        else if (llm==1) THEN
            ndim=3
            corner(1)=1
@@ -160 +160 @@
 !-----------------------------------------------
 
-      if (ntime==1) then
+      if (ntime==1) THEN
           ierr = nf90_redef (nid)
           ierr = nf90_def_var(nid,nom,nf90_float,dim_cc,varid)
@@ -175 +175 @@
       ierr= nf90_put_var(nid,varid,zx,corner,edges)
 
-      if (ierr/=nf90_noerr) then
-           write(*,*) "***** PUT_VAR problem in writediagfi"
-           write(*,*) "***** with ",nom
-           write(*,*) 'ierr=', ierr
+      if (ierr/=nf90_noerr) THEN
+           WRITE(*,*) "***** PUT_VAR problem in writediagfi"
+           WRITE(*,*) "***** with ",nom
+           WRITE(*,*) 'ierr=', ierr
       endif