Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/surf_land_bucket_mod.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/surf_land_bucket_mod.F90 (modified) (10 diffs)

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

@@ -126 +126 @@
 #ifdef ISO
 #ifdef ISOVERIF
-        !write(*,*) 'surf_land_bucket 152'
+        !WRITE(*,*) 'surf_land_bucket 152'
         DO i=1,knon
           IF (iso_eau > 0) THEN
@@ -144 +144 @@
           ENDDO !do ixt=1,niso
         ENDDO !do i=1,knon
-        !write(*,*) 'surf_land_bucket 152'
+        !WRITE(*,*) 'surf_land_bucket 152'
 #endif
 #endif
@@ -162 +162 @@
 ! calculate constants
     CALL calbeta(dtime, is_ter, knon, snow, qsol, beta, capsol, dif_grnd)
-    if (type_veget=='betaclim') then
+    if (type_veget=='betaclim') THEN
        CALL calbeta_clim(knon,jour,latitude(knindex(1:knon)),beta)
     endif
@@ -198 +198 @@
    ! verif
 #ifdef ISOVERIF
-    !write(*,*) 'surf_land_bucket 211'
+    !WRITE(*,*) 'surf_land_bucket 211'
     DO i=1,knon
       IF (iso_eau > 0) THEN
@@ -204 +204 @@
              snow(i),'surf_land_bucket 522', &
              errmax,errmaxrel)
-      ENDIF !IF (iso_eau > 0) then
+      ENDIF !IF (iso_eau > 0) THEN
     ENDDO !DO i=1,knon 
 #endif
@@ -223 +223 @@
     ENDDO !DO i=1,knon 
 #ifdef ISOVERIF
-    ! write(*,*) 'surf_land_bucket 235'
+    ! WRITE(*,*) 'surf_land_bucket 235'
     DO i=1,knon  
       IF (iso_eau > 0) THEN
@@ -253 +253 @@
 #endif
 #ifdef ISOVERIF
-        !write(*,*) 'surf_land_bucket 235'
+        !WRITE(*,*) 'surf_land_bucket 235'
         DO i=1,knon
           IF (iso_eau > 0) THEN
@@ -265 +265 @@
              ! xtsnow
              ! c'est fait plus tard dans gestion_neige
-!            write(*,*) 'surf_land_bucket 287: i=',i
-!            write(*,*) 'snow(i)=',snow(i)
+!            WRITE(*,*) 'surf_land_bucket 287: i=',i
+!            WRITE(*,*) 'snow(i)=',snow(i)
             CALL iso_verif_egalite_choix(xtsnow(iso_eau,i), &
                                      snow_prec(i),'surf_land_bucket 245', &
@@ -279 +279 @@
           ENDIF !IF ((iso_O17 > 0).AND.(iso_O18 > 0)) THEN
         ENDDO  !DO i=1,knon 
-        !write(*,*) 'surf_land_mod 291'
-        !write(*,*) 'snow_evap_diag(1)=',snow_evap_diag(1)
+        !WRITE(*,*) 'surf_land_mod 291'
+        !WRITE(*,*) 'snow_evap_diag(1)=',snow_evap_diag(1)
 #endif          
         CALL calcul_iso_surf_ter_vectall(klon,knon, &
@@ -293 +293 @@
      )
 !#ifdef ISOVERIF
-!        write(*,*) 'surf_land_bucket 303'
+!        WRITE(*,*) 'surf_land_bucket 303'
 !#endif
 #endif