-
Notifications
You must be signed in to change notification settings - Fork 0
/
My_3DVar_mod.f90
50 lines (50 loc) · 1.91 KB
/
My_3DVar_mod.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
module DA_mod
implicit none
logical, parameter :: &
DEBUG_DA_1STEP=.false. ! run only 1 DA step (no adv/chem)
endmodule DA_mod
!-----------------------------------------------------------------------
!
!-----------------------------------------------------------------------
module DA_3DVar_mod
use CheckStop_mod, only: CheckStop
use Config_module,only: ANALYSIS
implicit none
character(len=*), parameter :: &
mname = 'DA_3DVar_mod', &
errmsg= 'No 3DVar available. Need to recompile, e.g. make MACC-3DVar'
integer, parameter :: NTIMING_3DVAR=0, T_3DVAR=0
contains
!-----------------------------------------------------------------------
! Empty calls, for "standrd" model compilation
!-----------------------------------------------------------------------
subroutine DA_3DVar_Init(status)
! --- in/out ----------------------------
integer, intent(out) :: status
! --- const -----------------------------
character(len=*), parameter :: rname = mname//'/DA_3DVar_Init'
! --- begin -----------------------------
write(*,"(A,': ',A)")rname,errmsg
status = 1
endsubroutine DA_3DVar_Init
!-----------------------------------------------------------------------
subroutine DA_3DVar_Done(status)
! --- in/out ----------------------------
integer, intent(out) :: status
! --- const -----------------------------
character(len=*), parameter :: rname = mname//'/DA_3DVar_Done'
! --- begin -----------------------------
write(*,"(A,': ',A)")rname,errmsg
status = 1
endsubroutine DA_3DVar_Done
!-----------------------------------------------------------------------
subroutine main_3dvar(status)
! --- in/out ----------------------------
integer, intent(out) :: status
! --- const -----------------------------
character(len=*), parameter :: rname = mname//'/main_3dvar'
! --- begin -----------------------------
write(*,"(A,': ',A)")rname,errmsg
status = 1
endsubroutine main_3dvar
endmodule DA_3DVar_mod