Changeset 2074 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2

Timestamp:

Jan 18, 2019, 10:56:06 PM (6 years ago)

Author:

aslmd

Message:

correction in MESOSCALE generic update_inputs_physiq_mod, .eqv. should be used for booleans not .eq.

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_generic_lmd_new/update_inputs_physiq_mod.F (modified) (2 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_generic_lmd_new/update_inputs_physiq_mod.F

@@ -28 +28 @@
   
   IF (JULYR .ne. 9999) THEN
-    if (tlocked .eq. .false.) THEN
+    if (tlocked .eqv. .false.) THEN
       JH_cur_split = (GMT + elaps/3600.) !! universal time (0<JH_cur_split<1): JH_cur_split=0.5 at 12:00 UT 
       JH_cur_split = MODULO(JH_cur_split,24.)   !! the two arguments of MODULO must be of the same type 
@@ -46 +46 @@
     ENDIF
   ELSE
-    if (tlocked .eq. .false.) THEN
+    if (tlocked .eqv. .false.) THEN
       JH_cur_split = lct_input - lon_input / 15. + elaps/1500.0
       JD_cur =  INT((sec*(lct_input - lon_input / 15.) + elaps)/36000)