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

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/integrd_loc.f90 (modified) (12 diffs)

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

@@ -9 +9 @@
   USE lmdz_filtreg_p
   USE write_field_loc
-  USE write_field
+  USE lmdz_write_field
   USE integrd_mod
   USE comconst_mod, ONLY: pi
@@ -15 +15 @@
   USE comvert_mod, ONLY: ap, bp
   USE temps_mod, ONLY: dt
-  USE strings_mod, ONLY: int2str
+  USE lmdz_strings, ONLY: int2str
 
   IMPLICIT NONE
@@ -43 +43 @@
   !   ----------
 
-  INTEGER,intent(in) :: nq ! number of tracers to handle in this routine
+  INTEGER,INTENT(IN) :: nq ! number of tracers to handle in this routine
 
   REAL,INTENT(INOUT) :: vcov(ijb_v:ije_v,llm) ! covariant meridional wind
@@ -90 +90 @@
 
 !$OMP BARRIER
-  if (pole_nord) THEN
+  IF (pole_nord) THEN
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
     DO  l = 1,llm
@@ -101 +101 @@
   ENDIF
 
-  if (pole_sud) THEN
+  IF (pole_sud) THEN
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
     DO  l = 1,llm
@@ -195 +195 @@
   !   !WRITE(*,*) 'integrd 200'
 !$OMP MASTER
-  if (pole_nord) THEN
+  IF (pole_nord) THEN
 
     DO  ij    = 1, iim
@@ -207 +207 @@
   ENDIF
 
-  if (pole_sud) THEN
+  IF (pole_sud) THEN
 
     DO  ij    = 1, iim
@@ -255 +255 @@
   ijb=ij_begin
   ije=ij_end
-  if (pole_nord) ijb=ij_begin+iip1
-  if (pole_sud)  ije=ij_end-iip1
+  IF (pole_nord) ijb=ij_begin+iip1
+  IF (pole_sud)  ije=ij_end-iip1
 
   DO ij = ijb,ije
@@ -265 +265 @@
   ijb=ij_begin
   ije=ij_end
-  if (pole_sud)  ije=ij_end-iip1
+  IF (pole_sud)  ije=ij_end-iip1
 
   DO ij = ijb,ije
@@ -320 +320 @@
     ucovm1(ijb:ije,l)=uscr(ijb:ije)
     tetam1(ijb:ije,l)=hscr(ijb:ije)
-    if (pole_sud) ije=ij_end-iip1
+    IF (pole_sud) ije=ij_end-iip1
     vcovm1(ijb:ije,l)=vscr(ijb:ije)
 
@@ -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
@@ -415 +415 @@
   !c$OMP END DO NOWAIT
 
-  endif ! of if (planet_type.eq."earth")
+  ENDIF ! of if (planet_type.EQ."earth")
 
   !