Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/pentes_ini.f90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 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/dyn3d_common/pentes_ini.f90 (modified) (11 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/pentes_ini.f90

@@ -58 +58 @@
   INTEGER :: ismax,ismin,lati,latf
   EXTERNAL  SSUM, ismin,ismax
-  logical :: first
+  LOGICAL :: first
   save first
   !   fin modif
@@ -72 +72 @@
   limit = .TRUE.
   pente_max=2
-  ! if (mode.eq.1.or.mode.eq.3) THEN
-  ! if (mode.eq.1) THEN
-  if (mode>=1) THEN
+  ! if (mode.EQ.1.OR.mode.EQ.3) THEN
+  ! if (mode.EQ.1) THEN
+  IF (mode>=1) THEN
     lati=2
     latf=jjm
@@ -80 +80 @@
     lati=1
     latf=jjp1
-  endif
+  ENDIF
 
   qmin=0.4995
@@ -110 +110 @@
     ENDDO
 
-  endif
+  ENDIF
   !   Fin modif Fred
 
@@ -245 +245 @@
         sx(1,jjp1,l)=sx(iip1,jjp1,l)
       enddo
-  endif
-
-  if (mode==4) THEN
+  ENDIF
+
+  IF (mode==4) THEN
      do l=1,llm
         do i=1,iip1
@@ -256 +256 @@
         enddo
      enddo
-  endif
+  ENDIF
   CALL limx(s0,sx,sm,pente_max)
   ! CALL minmaxq(zq,1.e33,-1.e33,'avant advx     ')
    CALL advx( limit,.5*dtvr,pbaru,sm,s0,sx,sy,sz,lati,latf)
   ! CALL minmaxq(zq,1.e33,-1.e33,'avant advy     ')
-  if (mode==4) THEN
+  IF (mode==4) THEN
      do l=1,llm
         do i=1,iip1
@@ -270 +270 @@
         enddo
      enddo
-  endif
+  ENDIF
    CALL   limy(s0,sy,sm,pente_max)
    CALL advy( limit,.5*dtvr,pbarv,sm,s0,sx,sy,sz )
@@ -282 +282 @@
    CALL limz(s0,sz,sm,pente_max)
    CALL advz( limit,dtvr,w,sm,s0,sx,sy,sz )
-  if (mode==4) THEN
+  IF (mode==4) THEN
      do l=1,llm
         do i=1,iip1
@@ -291 +291 @@
         enddo
      enddo
-  endif
+  ENDIF
     CALL limy(s0,sy,sm,pente_max)
    CALL advy( limit,.5*dtvr,pbarv,sm,s0,sx,sy,sz )
@@ -306 +306 @@
 
   ! CALL minmaxq(zq,1.e33,-1.e33,'avant advx     ')
-  if (mode==4) THEN
+  IF (mode==4) THEN
      do l=1,llm
         do i=1,iip1
@@ -315 +315 @@
         enddo
      enddo
-  endif
+  ENDIF
    CALL limx(s0,sx,sm,pente_max)
    CALL advx( limit,.5*dtvr,pbaru,sm,s0,sx,sy,sz,lati,latf)