Changeset 3413 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/phys_cal_mod.F90

Timestamp:

Nov 12, 2018, 1:52:29 PM (6 years ago)

Author:

Laurent Fairhead

Message:

Inclusion of Yann's latest (summer/fall 2018) modifications for
convergence of DYNAMICO/LMDZ physics
YM/LF

File:

• LMDZ6/branches/DYNAMICO-conv/libf/phylmd/phys_cal_mod.F90 (modified) (3 diffs)

LMDZ6/branches/DYNAMICO-conv/libf/phylmd/phys_cal_mod.F90

@@ -36 +36 @@
   
   SUBROUTINE phys_cal_init(annee_ref,day_ref)
-  USE IOIPSL, ONLY:  ymds2ju, ioconf_calendar
-  USE mod_phys_lmdz_para, ONLY:  is_master,is_omp_master
-  USE ioipsl_getin_p_mod, ONLY: getin_p
-  IMPLICIT NONE
+
+    USE IOIPSL, ONLY:  ymds2ju, ioconf_calendar
+    USE mod_phys_lmdz_para, ONLY:  is_master,is_omp_master
+    USE ioipsl_getin_p_mod, ONLY: getin_p
+
+    IMPLICIT NONE
     INTEGER,INTENT(IN) :: annee_ref
     INTEGER,INTENT(IN) :: day_ref
@@ -46 +48 @@
     calend = 'earth_360d' ! default
     CALL getin_p("calend",calend)
-     
+
     IF (is_omp_master) THEN
       IF (calend == 'earth_360d') THEN
@@ -59 +61 @@
     ENDIF
 !$OMP BARRIER
-
+     
     CALL ymds2ju(annee_ref, 1, day_ref, 0., jD_ref)
     jD_ref=INT(jD_ref)