Changeset 2802 for LMDZ5/trunk/libf/phylmd/phys_cal_mod.F90

Timestamp:

Feb 28, 2017, 5:55:03 PM (7 years ago)

Author:

oboucher

Message:

Changed comment for days_elapsed (upon recommendation of Laurent F)

File:

• LMDZ5/trunk/libf/phylmd/phys_cal_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_cal_mod.F90

@@ -9 +9 @@
   INTEGER,SAVE :: day_cur       ! current day
 !$OMP THREADPRIVATE(day_cur)
-  INTEGER,SAVE :: days_elapsed  ! number of whole days since start of the simulation 
+  INTEGER,SAVE :: days_elapsed  ! number of whole days since start of the current year
 !$OMP THREADPRIVATE(days_elapsed)
   INTEGER,SAVE :: mth_len       ! number of days in the current month
@@ -33 +33 @@
 !$OMP THREADPRIVATE(calend)
 
-
 CONTAINS
   
   SUBROUTINE phys_cal_init(annee_ref,day_ref)
-  USE IOIPSL, ONLY:  ymds2ju
-  USE ioipsl_getin_p_mod, ONLY: getin_p
-  IMPLICIT NONE
+
+    USE IOIPSL, ONLY:  ymds2ju
+    USE ioipsl_getin_p_mod, ONLY: getin_p
+
+    IMPLICIT NONE
     INTEGER,INTENT(IN) :: annee_ref
     INTEGER,INTENT(IN) :: day_ref
@@ -79 +80 @@
 
 END MODULE phys_cal_mod
-