Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyredem.F90

Timestamp:

Jul 23, 2024, 3:29:36 PM (8 weeks ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyredem.F90 (modified) (9 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyredem.F90

@@ -191 +191 @@
 
 ! ================== Albedo =======================================
-    print*,'PHYREDEM NOUVEAU'
+    PRINT*,'PHYREDEM NOUVEAU'
     CALL put_field_srf2(pass,"A_dir_SW","Albedo direct",falb_dir(:,:,:))
     CALL put_field_srf2(pass,"A_dif_SW","Albedo diffus",falb_dif(:,:,:))
@@ -387 +387 @@
     END IF
 
-    if (ok_gwd_rando) call put_field(pass,"du_gwd_rando", &
+    if (ok_gwd_rando) CALL put_field(pass,"du_gwd_rando", &
          "tendency on zonal wind due to flott gravity waves", du_gwd_rando)
 
-    IF (.not. ok_hines .and. ok_gwd_rando) call put_field(pass,"du_gwd_front", &
+    IF (.not. ok_hines .and. ok_gwd_rando) CALL put_field(pass,"du_gwd_front", &
          "tendency on zonal wind due to acama gravity waves", du_gwd_front)
 
@@ -414 +414 @@
 #ifdef ISO
       write(*,*) 'phyredem 342'
-      call phyisoredem (pass, &
+      CALL phyisoredem (pass, &
                  xtsnow, &
                  xtrun_off_lic_0,Rland_ice, &
@@ -484 +484 @@
 
 #ifdef ISO
-! je voulais mettre cette subroutine dans isotopes_mod, mais elle a besoin de put_field_srf1 qui est contenue dans la subroutine phyredem. Si on veut mettre cette routine dans isotopes_mod, il faudrait convertir ce fichier en module pour pouvoir en appeler des routines
+! je voulais mettre cette SUBROUTINE dans isotopes_mod, mais elle a besoin de put_field_srf1 qui est contenue dans la SUBROUTINE phyredem. Si on veut mettre cette routine dans isotopes_mod, il faudrait convertir ce fichier en module pour pouvoir en appeler des routines
 
       SUBROUTINE phyisoredem (pass, &
@@ -513 +513 @@
         ! equivalent isotopique de phyredem
 
-#include "dimsoil.h"
-#include "clesphys.h"
-#include "alpale.h"
-#include "compbl.h"      
+ include "dimsoil.h"
+ include "clesphys.h"
+ include "alpale.h"
+ include "compbl.h"
       ! inputs
       !REAL xtsol(niso,klon)
@@ -546 +546 @@
       do k=1,klev
         do i=1,klon
-           call iso_verif_egalite(xt_ancien(iso_eau,i,k),q_ancien(i,k), &
+           CALL iso_verif_egalite(xt_ancien(iso_eau,i,k),q_ancien(i,k), &
                  'phyisoredem 50a')
-           call iso_verif_egalite(xtl_ancien(iso_eau,i,k),ql_ancien(i,k), &
+           CALL iso_verif_egalite(xtl_ancien(iso_eau,i,k),ql_ancien(i,k), &
                  'phyisoredem 50b')
-           call iso_verif_egalite(xts_ancien(iso_eau,i,k),qs_ancien(i,k), &
+           CALL iso_verif_egalite(xts_ancien(iso_eau,i,k),qs_ancien(i,k), &
                  'phyisoredem 50c')
           
@@ -557 +557 @@
       do i=1,klon
         DO nsrf = 1, nbsrf
-           call iso_verif_egalite(fxtevap(iso_eau,i,nsrf),fevap(i,nsrf), &
+           CALL iso_verif_egalite(fxtevap(iso_eau,i,nsrf),fevap(i,nsrf), &
                  'phyisoredem 50d')
         enddo !DO nsrf = 1, nbsrf
@@ -564 +564 @@
       do i=1,klon
        do ixt=1,niso
-        call iso_verif_noNaN(xtsol(ixt,i),'phyisoredem 72')
+        CALL iso_verif_noNaN(xtsol(ixt,i),'phyisoredem 72')
        enddo !do ixt=1,niso
       enddo !do i=1,klon
@@ -570 +570 @@
       do k=1,klev
         do i=1,klon  
-          call iso_verif_traceur(xt_ancien(1,i,k), &
+          CALL iso_verif_traceur(xt_ancien(1,i,k), &
                          'phyisoredem 60')
         enddo !do i=1,klon