Changeset 5095 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/phys_cosp.F90

Timestamp:

Jul 22, 2024, 9:46:57 AM (2 months ago)

Author:

abarral

Message:

Revert cosp*/ from the trunk, as it's external code
Add missing bits from FCM2 source

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/phys_cosp.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/phys_cosp.F90

@@ -193 +193 @@
           cfg%Lrttov_sim,cfg%Lstats
 
-    if (overlaplmdz/=overlap) then
+    if (overlaplmdz.ne.overlap) then
        print*,'Attention overlaplmdz different de overlap lu dans namelist '
     endif
@@ -201 +201 @@
 
 !!! Ici on modifie les cles logiques pour les outputs selon les champs actives dans les .xml
-  if ((itap>1).and.(first_write))then
+  if ((itap.gt.1).and.(first_write))then
    
     IF (using_xios) call read_xiosfieldactive(cfg)
@@ -268 +268 @@
 
         do ip = 1, Npoints
-          if (fracTerLic(ip)>=0.5) then
+          if (fracTerLic(ip).ge.0.5) then
              gbx%land(ip) = 1.
           else