Changeset 5274 for LMDZ6/trunk/libf/phylmd/time_phylmdz_mod.f90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (31 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/time_phylmdz_mod.f90
r5268 r5274 38 38 USE ioipsl_getin_p_mod, ONLY : getin_p 39 39 USE phys_cal_mod, ONLY: phys_cal_init 40 IMPLICIT NONE 41 INCLUDE 'YOMCST.h' 42 INTEGER, INTENT(IN) :: annee_ref_ 43 INTEGER, INTENT(IN) :: day_ref_ 44 INTEGER, INTENT(IN) :: day_ini_ 45 REAL, INTENT(IN) :: start_time_ 46 INTEGER, INTENT(IN) :: ndays_ 47 REAL, INTENT(IN) :: pdtphys_ 48 40 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 41 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 42 , R_ecc, R_peri, R_incl & 43 , RA, RG, R1SA & 44 , RSIGMA & 45 , R, RMD, RMV, RD, RV, RCPD & 46 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 47 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 48 , RCW, RCS & 49 , RLVTT, RLSTT, RLMLT, RTT, RATM & 50 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 51 , RALPD, RBETD, RGAMD 52 IMPLICIT NONE 53 54 INTEGER, INTENT(IN) :: annee_ref_ 55 INTEGER, INTENT(IN) :: day_ref_ 56 INTEGER, INTENT(IN) :: day_ini_ 57 REAL, INTENT(IN) :: start_time_ 58 INTEGER, INTENT(IN) :: ndays_ 59 REAL, INTENT(IN) :: pdtphys_ 60 49 61 annee_ref = annee_ref_ 50 62 day_ref = day_ref_ … … 53 65 ndays = ndays_ 54 66 pdtphys = pdtphys_ 55 67 56 68 ! Initialize module variable not inherited from dynamics 57 69 day_step_phy = NINT(rday/pdtphys) 58 70 day_end = day_ini + ndays 59 71 60 72 raz_date = 0 61 73 CALL getin_p('raz_date', raz_date) 62 74 63 75 current_time=0. 64 76 65 77 CALL phys_cal_init(annee_ref,day_ref) 66 78 67 79 END SUBROUTINE init_time 68 80 … … 72 84 itau_phy=itau_phy_ 73 85 IF (raz_date==1) itau_phy=0 74 86 75 87 itaufin_phy=itau_phy+NINT(ndays/pdtphys) 76 88 77 89 END SUBROUTINE init_iteration 78 90 … … 82 94 USE phys_cal_mod, ONLY: phys_cal_update 83 95 USE print_control_mod, ONLY: lunout 96 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 97 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 98 , R_ecc, R_peri, R_incl & 99 , RA, RG, R1SA & 100 , RSIGMA & 101 , R, RMD, RMV, RD, RV, RCPD & 102 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 103 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 104 , RCW, RCS & 105 , RLVTT, RLSTT, RLMLT, RTT, RATM & 106 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 107 , RALPD, RBETD, RGAMD 84 108 IMPLICIT NONE 85 INCLUDE 'YOMCST.h' 109 86 110 REAL,INTENT(IN) :: pdtphys_ 87 111 REAL :: julian_date
Note: See TracChangeset
for help on using the changeset viewer.