Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmd/fonte_neige_mod.F90

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/fonte_neige_mod.F90 (modified) (9 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/fonte_neige_mod.F90

@@ -178 +178 @@
       IF (iso_eau > 0) THEN   
         CALL iso_verif_egalite_vect1D( &
-     &           xtrun_off_lic_0,run_off_lic_0,'fonte_neige 100', &
-     &           niso,klon)
+             xtrun_off_lic_0,run_off_lic_0,'fonte_neige 100', &
+             niso,klon)
       ENDIF !IF (iso_eau > 0) THEN
 #endif        
@@ -233 +233 @@
        snow, qsol, tsurf_new, evap &
 #ifdef ISO    
-     & ,fq_fonte_diag,fqfonte_diag,snow_evap_diag,fqcalving_diag   &
-     & ,max_eau_sol_diag,runoff_diag,run_off_lic_diag,coeff_rel_diag   &
-#endif
-     &   )
+   ,fq_fonte_diag,fqfonte_diag,snow_evap_diag,fqcalving_diag   &
+   ,max_eau_sol_diag,runoff_diag,run_off_lic_diag,coeff_rel_diag   &
+#endif
+     )
 
     USE indice_sol_mod
@@ -471 +471 @@
   SUBROUTINE fonte_neige_final(restart_runoff &
 #ifdef ISO      
-     &                        ,xtrestart_runoff &
+                          ,xtrestart_runoff &
 #endif   
-     &                        )
+                          )
 !
 ! This subroutine returns run_off_lic_0 for later writing to restart file.
@@ -505 +505 @@
       DO i=1,klon
         IF (iso_verif_egalite_nostop(run_off_lic_0(i) &
-     &                              ,xtrun_off_lic_0(iso_eau,i) &
-     &                              ,'fonte_neige 413') &
-     &      == 1) then
+                                ,xtrun_off_lic_0(iso_eau,i) &
+                                ,'fonte_neige 413') &
+        == 1) then
           WRITE(*,*) 'i=',i
           STOP
@@ -546 +546 @@
               fqfonte_out, ffonte_out, run_off_lic_out &
 #ifdef ISO     
-     &       ,fxtcalving_out, fxtfonte_out,xtrun_off_lic_out &
+         ,fxtcalving_out, fxtfonte_out,xtrun_off_lic_out &
 #endif     
-     &       )
+         )
 
 
@@ -626 +626 @@
 #ifdef ISO
   SUBROUTINE gestion_neige_besoin_varglob_fonte_neige(klon,knon, &
-     &           xtprecip_snow,xtprecip_rain, &
-     &           fxtfonte_neige,fxtcalving, &
-     &           knindex,nisurf,run_off_lic_diag,coeff_rel_diag)
+             xtprecip_snow,xtprecip_rain, &
+             fxtfonte_neige,fxtcalving, &
+             knindex,nisurf,run_off_lic_diag,coeff_rel_diag)
 
         ! dans cette routine, on a besoin des variables globales de
@@ -661 +661 @@
            j = knindex(i)
            CALL iso_verif_egalite(xtrun_off_lic_0(iso_eau,j), &
-     &             run_off_lic_0(j),'gestion_neige_besoin_varglob_fonte_neige 625')
+               run_off_lic_0(j),'gestion_neige_besoin_varglob_fonte_neige 625')
         ENDDO
       ENDIF
@@ -676 +676 @@
         DO ixt = 1, niso
           xtrun_off_lic(ixt,i)   = (coeff_rel_diag *  fxtcalving(ixt,i)) &
-     &                            +(1. - coeff_rel_diag) * xtrun_off_lic_0(ixt,j)
+                              +(1. - coeff_rel_diag) * xtrun_off_lic_0(ixt,j)
           xtrun_off_lic_0(ixt,j) = xtrun_off_lic(ixt,i)
           xtrun_off_lic(ixt,i)   = xtrun_off_lic(ixt,i) + fxtfonte_neige(ixt,i) + xtprecip_rain(ixt,i)
@@ -683 +683 @@
           IF (iso_eau > 0) THEN             
             IF (iso_verif_egalite_choix_nostop(xtrun_off_lic(iso_eau,i), &
-     &                  run_off_lic_diag(i),'gestion_neige_besoin_varglob_fonte_neige 1201a', &
-     &                  errmax,errmaxrel) == 1) THEN 
+                    run_off_lic_diag(i),'gestion_neige_besoin_varglob_fonte_neige 1201a', &
+                    errmax,errmaxrel) == 1) THEN
                WRITE(*,*) 'i,j=',i,j   
                WRITE(*,*) 'coeff_rel_diag=',coeff_rel_diag