Changeset 3727 for trunk/LMDZ.MARS/libf/phymars/swr_toon.F

Timestamp:

Apr 17, 2025, 5:28:46 PM (2 months ago)

Author:

emillour

Message:

Mars PCM:
Code tidying: put routines in modules, remove useless "return" statements and
remove obsolete and unused scopyi.F
EM

File:

• trunk/LMDZ.MARS/libf/phymars/swr_toon.F (modified) (8 diffs)

trunk/LMDZ.MARS/libf/phymars/swr_toon.F

@@ +1 @@
+      module swr_toon_mod
+      
+      implicit none
+      
+      contains
+      
       SUBROUTINE SWR_TOON ( KDLON, KFLEV, KNU
      S     ,  aerosol,QVISsQREF3d,omegaVIS3d,gVIS3d
@@ -206 +212 @@
 c     End part added by Tran The Trung
 
-      RETURN
-      END
+      END SUBROUTINE SWR_TOON
 
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
@@ -379 +384 @@
       END DO
 
-      RETURN
-      END
+      END SUBROUTINE GFLUXV
 
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
@@ -388 +392 @@
 
 C DOUBLE PRECISION VERSION OF SOLVER
-
+      IMPLICIT NONE
 cc      PARAMETER (NMAX=201)
 cc AS+JBM 03/2010
-      IMPLICIT REAL*8  (A-H,O-Z)
-      DIMENSION GAMA(NL),CP(NL),CM(NL),CPM1(NL),CMM1(NL),XK1(NL),
+      INTEGER NL
+!      IMPLICIT REAL*8  (A-H,O-Z)
+      REAL*8 GAMA(NL),CP(NL),CM(NL),CPM1(NL),CMM1(NL),XK1(NL),
      *          XK2(NL),E1(NL),E2(NL),E3(NL),E4(NL)
+      REAL*8 BTOP,BSURF,RSF
 cc AS+JBM 03/2010      
 cc      DIMENSION AF(NMAX),BF(NMAX),CF(NMAX),DF(NMAX),XK(NMAX)
-      DIMENSION AF(2*NL),BF(2*NL),CF(2*NL),DF(2*NL),XK(2*NL)
+      REAL*8 AF(2*NL),BF(2*NL),CF(2*NL),DF(2*NL),XK(2*NL)
 
 C*********************************************************
@@ -427 +433 @@
 C======================================================================C
 
+      INTEGER :: I, L, LM1, LM2, N
+
       L=2*NL
  
@@ -484 +492 @@
    28 CONTINUE
  
-      RETURN
-      END
+      END SUBROUTINE DSOLVER
 
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
@@ -492 +499 @@
 
 C     DOUBLE PRECISION VERSION OF TRIDGL
-
+      IMPLICIT NONE
 cc AS+JBM 03/2010 : OBSOLETE MAINTENANT      
 cc      PARAMETER (NMAX=201)
-      IMPLICIT REAL*8  (A-H,O-Z)
-      DIMENSION AF(L),BF(L),CF(L),DF(L),XK(L)
+!      IMPLICIT REAL*8  (A-H,O-Z)
+      INTEGER L
+      REAL*8 AF(L),BF(L),CF(L),DF(L),XK(L)
 cc AS+JBM 03/2010 : OBSOLETE MAINTENANT
 cc      DIMENSION AS(NMAX),DS(NMAX)
-      DIMENSION AS(L),DS(L)
+      REAL*8 AS(L),DS(L)
+      REAL*8 X
+      INTEGER I
 
 C*    THIS SUBROUTINE SOLVES A SYSTEM OF TRIDIAGIONAL MATRIX
@@ -523 +533 @@
       END DO
 
-      RETURN
-      END
-      
+      END SUBROUTINE DTRIDGL
+      
+      end module swr_toon_mod