-
Notifications
You must be signed in to change notification settings - Fork 2
/
cpl_main_interface.f90
executable file
·59 lines (42 loc) · 1.18 KB
/
cpl_main_interface.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
51
52
53
54
55
56
57
58
59
subroutine ini_coupler(istart)
!
! subroutine ini_coupler (istart)
!
use mod_atparam
use mod_cpl_land_model, only: land_model_init
use mod_surfcon, only: fmask, alb0
use mod_cli_land, only: fmask_l
use mod_cli_sea, only: fmask_s, deglat_s
implicit none
integer, intent(in) :: istart
! 1.1 initialize land model constants
call land_model_init(fmask_l,alb0)
! 1.2 initialize land model variables
call ini_land(istart)
! 2.1 initialize sea and ice model constants
call sea_model_init(fmask_s,deglat_s)
! 2.2 initialize sea and ice model variables
call ini_sea(istart)
end
subroutine agcm_to_coupler(jday)
!
! subroutine agcm_to_coupler (jday)
!
implicit none
integer, intent(in) :: jday
! 1. send fields to land model
call atm2land(jday)
! 2. send fields to sea and ice model
call atm2sea(jday)
end
subroutine coupler_to_agcm(jday)
!
! subroutine coupler_to_agcm (jday)
!
implicit none
integer, intent(in) :: jday
! 1. get updated fields from land model
call land2atm(jday)
! 2. get updated fields from sea and ice model
call sea2atm(jday)
end