-
Notifications
You must be signed in to change notification settings - Fork 93
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
share, mksrfdata, mkinidata, main/HYDRO, main/DA and postprocess code… #241
Conversation
main/DA/MOD_DataAssimilation.F90
Outdated
|
||
INTEGER, INTENT(in) :: idate(3) | ||
REAL(r8), INTENT(in) :: deltim | ||
integer, intent(in) :: idate(3) |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Lines 26-27: Please delete three space.
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Add some descriptions of DA module?
@@ -75,7 +75,7 @@ END SUBROUTINE allocate_1D_HydroFluxes | |||
|
|||
SUBROUTINE deallocate_1D_HydroFluxes | |||
|
|||
IMPLICIT NONE | |||
IMPLICIT NONE |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Please delete one space
integer :: s_year ! starting date for run in year | ||
integer :: s_month ! starting date for run in month | ||
integer :: s_day ! starting date for run in day | ||
integer :: s_julian ! starting date for run in julian day | ||
integer :: s_seconds ! starting time of day for run in seconds | ||
integer :: idate(3) ! starting date | ||
INTEGER :: lc_year ! land cover year | ||
integer :: lc_year ! land cover year | ||
logical :: greenwich ! true: greenwich time, false: local time | ||
|
||
integer*8 :: start_time, end_time, c_per_sec, time_used | ||
|
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Did the calculation processes in PROGRAM should intend three space?
mkinidata/CoLMINI.F90
Outdated
@@ -112,20 +113,20 @@ PROGRAM CoLMINI | |||
CAll Init_LC_Const |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Lines 113-114: CAll -> CALL
share/MOD_NetCDFVectorPar.F90
Outdated
filename, dataname, dim1name, ndim1, & | ||
vecname, pixelset, wdata, compress_level) | ||
|
||
IMPLICIT NONE |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
same
share/MOD_NetCDFVectorPar.F90
Outdated
filename, dataname, dim1name, ndim1, dim2name, ndim2, & | ||
vecname, pixelset, wdata, compress_level) | ||
|
||
IMPLICIT NONE |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
same
share/MOD_NetCDFVectorPar.F90
Outdated
filename, dataname, dim1name, ndim1, dim2name, ndim2, dim3name, ndim3, & | ||
vecname, pixelset, wdata, compress_level) | ||
|
||
IMPLICIT NONE |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
same
END TYPE timestamp | ||
type :: timestamp | ||
integer :: year, day, sec | ||
END type timestamp | ||
|
||
INTERFACE ASSIGNMENT (=) |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
interface
@@ -59,22 +59,22 @@ MODULE MOD_TimeManager | |||
MODULE procedure calendarday_stamp | |||
END INTERFACE |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
interface
share, mksrfdata, mkinidata, main/HYDRO, main/DA and postprocess code…
… adjustment and optimization