Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/lmdz_cosp_interface.F90

Timestamp:

Sep 11, 2024, 4:27:07 PM (2 months ago)

Author:

abarral

Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/lmdz_cosp_interface.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/lmdz_cosp_interface.F90

@@ -311 +311 @@
 
 !!! Ici on modifie les cles logiques pour les outputs selon les champs actives dans les .xml
-  if ((itap.ge.1).and.(first_write))then
+  if ((itap.ge.1).AND.(first_write))then
     IF (using_xios) call read_xiosfieldactive(cfg)
     first_write=.false.
@@ -344 +344 @@
     cfg%Lisccp, cfg%Lmisr, cfg%Lmodis, cfg%Lrttov
 
-  endif !(itap.gt.1).and.(first_write)
+  endif !(itap.gt.1).AND.(first_write)
 
   time_bnds(1) = dtime-dtime/2.