Sola/GEOS-Chem-adjoint-v35-note
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add files via upload

Browse Source
This commit is contained in:
Xuesong (Steve)
2018-10-30 15:37:33 -04:00
committed by GitHub
parent 403ad1f812
commit 7b664a6126
2 changed files with 1062 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
code/modified/restart_mod.f
View File

@ -135,7 +135,7 @@
USE LOGICAL_MOD, ONLY : LPRT USE LOGICAL_MOD, ONLY : LPRT
USE TIME_MOD, ONLY : EXPAND_DATE USE TIME_MOD, ONLY : EXPAND_DATE
USE TRACER_MOD, ONLY : STT, N_TRACERS, TCVV USE TRACER_MOD, ONLY : STT, N_TRACERS, TCVV
USE CHECKPT_MOD, ONLY : CHK_STT !USE CHECKPT_MOD, ONLY : CHK_STT
# include "CMN_SIZE" ! Size parameters # include "CMN_SIZE" ! Size parameters
@ -212,7 +212,7 @@
DO L = 1, LLPAR DO L = 1, LLPAR
DO J = 1, JJPAR DO J = 1, JJPAR
DO I = 1, IIPAR DO I = 1, IIPAR
TRACER(I,J,L) = CHK_STT(I,J,L,N) * TCVV(N) / AD(I,J,L) TRACER(I,J,L) = STT(I,J,L,N) * TCVV(N) / AD(I,J,L)
ENDDO ENDDO
ENDDO ENDDO
ENDDO ENDDO

1060
code/modified/restart_mod.f~ Normal file
View File

File diff suppressed because it is too large Load Diff