Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/integrd_loc.f90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 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/dyn3dmem/integrd_loc.f90 (modified) (9 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/integrd_loc.f90

@@ -86 +86 @@
   INTEGER :: ierr
 
-  !write(*,*) 'integrd 88: entree, nq=',nq
+  !WRITE(*,*) 'integrd 88: entree, nq=',nq
   !-----------------------------------------------------------------------
 
@@ -151 +151 @@
   ! &                   MPI_LOGICAL,MPI_LOR,COMM_LMDZ,ierr)
   IF( .NOT. checksum ) THEN
-     write(lunout,*) "integrd: ps = ", ps(stop_it)
-     write(lunout,*) " at node ij =", stop_it
+     WRITE(lunout,*) "integrd: ps = ", ps(stop_it)
+     WRITE(lunout,*) " at node ij =", stop_it
      ! since ij=j+(i-1)*jjp1 , we have
       j=modulo(stop_it,jjp1)
       i=1+(stop_it-j)/jjp1
-      write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg", &
+      WRITE(lunout,*) " lon = ",rlonv(i)*180./pi, " deg", &
             " lat = ",rlatu(j)*180./pi, " deg"
      CALL abort_gcm("integrd_loc", "negative surface pressure", 1)
@@ -163 +163 @@
 !$OMP END MASTER
 !$OMP BARRIER
-    !write(*,*) 'integrd 170'
+    !WRITE(*,*) 'integrd 170'
   IF (.NOT. Checksum_all) THEN
     CALL WriteField_v('int_vcov',vcov)
@@ -193 +193 @@
 
   !
-  !   !write(*,*) 'integrd 200'
+  !   !WRITE(*,*) 'integrd 200'
 !$OMP MASTER
   if (pole_nord) THEN
@@ -220 +220 @@
 !$OMP END MASTER
 !$OMP BARRIER
-  !write(*,*) 'integrd 217'
+  !WRITE(*,*) 'integrd 217'
   !
   !  ... Calcul  de la nouvelle masse d'air au dernier temps integre t+1 ...
@@ -284 +284 @@
   !
   !
-  !   !write(*,*) 'integrd 291'
+  !   !WRITE(*,*) 'integrd 291'
   IF (pole_nord) THEN
 
@@ -334 +334 @@
   ije=ij_end
 
-     if (planet_type=="earth") then
+     if (planet_type=="earth") THEN
   ! Earth-specific treatment of first 2 tracers (water)
 !$OMP BARRIER
@@ -349 +349 @@
     CALL check_isotopes(q,ijb,ije,'integrd 342')
 
-    !write(*,*) 'integrd 341'
+    !WRITE(*,*) 'integrd 341'
     CALL qminimum_loc( q, nq, deltap )
-    !write(*,*) 'integrd 343'
+    !WRITE(*,*) 'integrd 343'
 
     CALL check_isotopes(q,ijb,ije,'integrd 346')
@@ -421 +421 @@
   ! .....   FIN  de l'integration  de   q    .......
 
-      !write(*,*) 'integrd 410'
+      !WRITE(*,*) 'integrd 410'
 
 !$OMP DO SCHEDULE(STATIC)