Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phytracr_spl_mod.F90

Timestamp:

Aug 2, 2024, 2:12:03 PM (3 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phytracr_spl_mod.F90 (modified) (21 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phytracr_spl_mod.F90

@@ -1343 +1343 @@
 
     !JE_dbg
-    do i = 1, klon
+    DO i = 1, klon
       tsol(i) = 0.0
-      do j = 1, nbsrf
+      DO j = 1, nbsrf
         tsol(i) = tsol(i) + ftsol(i, j) * pctsrf(i, j)
       enddo
@@ -1382 +1382 @@
       id_scdu = -1
       itr = 0
-      do iq = 1, nqtot
+      DO iq = 1, nqtot
         IF(.NOT.tracers(iq)%isInPhysics) CYCLE
         itr = itr + 1
@@ -1941 +1941 @@
       !$OMP END MASTER
       !$OMP BARRIER
-      do i = 1, klon
+      DO i = 1, klon
         aux_var2(i) = pctsrf(i, is_oce)
       enddo
@@ -1954 +1954 @@
       !$OMP BARRIER
 
-      do i = 1, klon
+      DO i = 1, klon
         aux_var2(i) = pctsrf(i, is_sic)
       enddo
@@ -1967 +1967 @@
       !$OMP BARRIER
 
-      do i = 1, klon
+      DO i = 1, klon
         aux_var2(i) = pctsrf(i, is_ter)
       enddo
@@ -1980 +1980 @@
       !$OMP BARRIER
 
-      do i = 1, klon
+      DO i = 1, klon
         aux_var2(i) = pctsrf(i, is_lic)
       enddo
@@ -2066 +2066 @@
     !     .                                         MAXVAL(tr_seri(:,:,3))
 #ifdef IOPHYS_DUST
-      do itr=1,nbtr
+      DO itr=1,nbtr
          WRITE(str2,'(i2.2)') itr
          CALL iophys_ecrit('sav'//str2,1,'SOURCE','',source_tr(:,itr))
          CALL iophys_ecrit('fav'//str2,1,'SOURCE','',source_tr(:,itr))
       enddo
-      do itr=1,nbtr
+      DO itr=1,nbtr
          WRITE(str2,'(i2.2)') itr
          CALL iophys_ecrit('TRB'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
@@ -2099 +2099 @@
 
 #ifdef IOPHYS_DUST
-      do itr=1,nbtr
+      DO itr=1,nbtr
          WRITE(str2,'(i2.2)') itr
          CALL iophys_ecrit('sap'//str2,1,'SOURCE','',source_tr(:,itr))
@@ -2196 +2196 @@
 #ifdef IOPHYS_DUST
 
-      do itr=1,nbtr
+      DO itr=1,nbtr
          WRITE(str2,'(i2.2)') itr
          CALL iophys_ecrit('tpr'//str2,1,'SOURCE','',source_tr(:,itr))
@@ -2240 +2240 @@
 
 #ifdef IOPHYS_DUST
-      do itr=1,nbtr
+      DO itr=1,nbtr
          WRITE(str2,'(i2.2)') itr
          CALL iophys_ecrit('t'//str2,1,'SOURCE','',source_tr(:,itr))
@@ -2296 +2296 @@
 
 #ifdef IOPHYS_DUST
-      do itr=1,nbtr
+      DO itr=1,nbtr
          WRITE(str2,'(i2.2)') itr
          CALL iophys_ecrit('TRC'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
@@ -2336 +2336 @@
 
 #ifdef IOPHYS_DUST
-      do itr=1,nbtr
+      DO itr=1,nbtr
          WRITE(str2,'(i2.2)') itr
          CALL iophys_ecrit('TRD'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
@@ -2410 +2410 @@
       CALL iophys_ecrit('yv1',1,'yv1','',yv1)
       CALL iophys_ecrit('delp',klev,'delp','',delp)
-      do itr=1,nbtr
+      DO itr=1,nbtr
          WRITE(str2,'(i2.2)') itr
          CALL iophys_ecrit('TRE'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
@@ -2602 +2602 @@
     !=======================================================================
 #ifdef IOPHYS_DUST
-      do itr=1,nbtr
+      DO itr=1,nbtr
          WRITE(str2,'(i2.2)') itr
          CALL iophys_ecrit('TRF'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
@@ -2689 +2689 @@
 
 #ifdef IOPHYS_DUST
-      do itr=1,nbtr
+      DO itr=1,nbtr
          WRITE(str2,'(i2.2)') itr
          CALL iophys_ecrit('TRG'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
@@ -2854 +2854 @@
 
 #ifdef IOPHYS_DUST
-      do itr=1,nbtr
+      DO itr=1,nbtr
          WRITE(str2,'(i2.2)') itr
          CALL iophys_ecrit('TRH'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
@@ -3053 +3053 @@
       CALL iophys_ecrit('wdtrainM',klev,'wdtrainM','',wdtrainM)
 
-      do itr=1,nbtr
+      DO itr=1,nbtr
          WRITE(str2,'(i2.2)') itr
          CALL iophys_ecrit('TRI'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
@@ -3174 +3174 @@
     !=======================================================================
 #ifdef IOPHYS_DUST
-      do itr=1,nbtr
+      DO itr=1,nbtr
          WRITE(str2,'(i2.2)') itr
          CALL iophys_ecrit('TRJ'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
@@ -3440 +3440 @@
     !======================================================================
 #ifdef IOPHYS_DUST
-      do itr=1,nbtr
+      DO itr=1,nbtr
          WRITE(str2,'(i2.2)') itr
          CALL iophys_ecrit('TRK'//str2,klev,'SOURCE','',tr_seri(:,:,itr))
@@ -4306 +4306 @@
     IF (is_mpi_root .AND. is_omp_root) THEN
       OPEN(1, file = trim(adjustl(filescaleparams)), form = 'unformatted')
-      do k = 1, nbreg
+      DO k = 1, nbreg
         read(1)  scale_param(k)
       enddo
@@ -4454 +4454 @@
       ierr = nf90_open(trim(adjustl(filescaleparams)), nf90_nowrite, nid)
       IF (ierr == nf90_noerr) THEN
-        do i = 1, nbreg
+        DO i = 1, nbreg
           WRITE(aux_2s, '(i2.2)') i
           varname = trim(adjustl(paramname)) // aux_2s