Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem

Timestamp:

Jul 20, 2024, 12:00:23 PM (17 months ago)

Author:

abarral

Message:

remove fixed-form ^{\s+& remaining in .f90,.F90}

Location:

LMDZ6/branches/Amaury_dev/libf/dyn3dmem

Files:

• guide_loc_mod.F90 (modified) (4 diffs)
• lmdz_call_calfis.F90 (modified) (2 diffs)
• writedyn_xios.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/guide_loc_mod.F90

@@ -1272 +1272 @@
                     DO i=1,iim
                         plnc2(i,j,l)=apnc(l)+bpnc(l)*(psnat2(i,j)*aire(i,j)*alpha1p2(i,j) &
-                       &           +psnat2(i+1,j)*aire(i+1,j)*alpha3p4(i+1,j))/aireu(i,j)
+             +psnat2(i+1,j)*aire(i+1,j)*alpha3p4(i+1,j))/aireu(i,j)
                         plnc1(i,j,l)=apnc(l)+bpnc(l)*(psnat1(i,j)*aire(i,j)*alpha1p2(i,j) &
-                       &           +psnat1(i+1,j)*aire(i+1,j)*alpha3p4(i+1,j))/aireu(i,j)
+             +psnat1(i+1,j)*aire(i+1,j)*alpha3p4(i+1,j))/aireu(i,j)
                     ENDDO
                     plnc2(iip1,j,l)=plnc2(1,j,l)
@@ -1286 +1286 @@
                     DO i=1,iim
                         plnc2(i,j,l)=(pnat2(i,j,l)*aire(i,j)*alpha1p2(i,j) &
-                       & +pnat2(i+1,j,l)*aire(i,j)*alpha3p4(i+1,j))/aireu(i,j)
+   +pnat2(i+1,j,l)*aire(i,j)*alpha3p4(i+1,j))/aireu(i,j)
                         plnc1(i,j,l)=(pnat1(i,j,l)*aire(i,j)*alpha1p2(i,j) &
-                       & +pnat1(i+1,j,l)*aire(i,j)*alpha3p4(i+1,j))/aireu(i,j)
+   +pnat1(i+1,j,l)*aire(i,j)*alpha3p4(i+1,j))/aireu(i,j)
                     ENDDO
                     plnc2(iip1,j,l)=plnc2(1,j,l)
@@ -1346 +1346 @@
                     DO i=1,iip1
                         plnc2(i,j,l)=apnc(l)+bpnc(l)*(psnat2(i,j)*aire(i,j)*alpha2p3(i,j) &
-                       &           +psnat2(i,j+1)*aire(i,j+1)*alpha1p4(i,j+1))/airev(i,j)
+             +psnat2(i,j+1)*aire(i,j+1)*alpha1p4(i,j+1))/airev(i,j)
                         plnc1(i,j,l)=apnc(l)+bpnc(l)*(psnat1(i,j)*aire(i,j)*alpha2p3(i,j) &
-                       &           +psnat1(i,j+1)*aire(i,j+1)*alpha1p4(i,j+1))/airev(i,j)
+             +psnat1(i,j+1)*aire(i,j+1)*alpha1p4(i,j+1))/airev(i,j)
                     ENDDO
                 ENDDO
@@ -1364 +1364 @@
                     DO i=1,iip1
                         plnc2(i,j,l)=(pnat2(i,j,l)*aire(i,j)*alpha2p3(i,j) &
-                       & +pnat2(i,j+1,l)*aire(i,j)*alpha1p4(i,j+1))/airev(i,j)
+   +pnat2(i,j+1,l)*aire(i,j)*alpha1p4(i,j+1))/airev(i,j)
                         plnc1(i,j,l)=(pnat1(i,j,l)*aire(i,j)*alpha2p3(i,j) &
-                       & +pnat1(i,j+1,l)*aire(i,j)*alpha1p4(i,j+1))/airev(i,j)
+   +pnat1(i,j+1,l)*aire(i,j)*alpha1p4(i,j+1))/airev(i,j)
                     ENDDO
                 ENDDO

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/lmdz_call_calfis.F90

@@ -143 +143 @@
    
            jD_cur = jD_ref + day_ini - day_ref                           &
-     &        + (itau+1)/day_step
+          + (itau+1)/day_step
 
            IF (planet_type =="generic") THEN
@@ -151 +151 @@
 
            jH_cur = jH_ref + start_time +                                &
-     &              mod(itau+1,day_step)/float(day_step) 
+                mod(itau+1,day_step)/float(day_step)
     if (jH_cur > 1.0 ) then
       jD_cur = jD_cur +1.

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/writedyn_xios.F90

@@ -3 +3 @@
 !
       SUBROUTINE writedyn_xios( vcov, ucov,teta,ppk,phi,q, &
-     &                           masse,ps,phis)
+                             masse,ps,phis)
 
       USE lmdz_xios