Changeset 9114 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90
- Timestamp:
- 2017-12-18T13:16:44+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90
r8521 r9114 24 24 USE sms_medusa ! sms trends 25 25 USE iom ! I/O manager 26 USE sbc_oce, ONLY: lk_oasis 26 27 !!USE trc_nam_dia ! JPALM 13-11-2015 -- if iom_use for diag 27 28 … … 85 86 & jriver_n,jriver_si,jriver_c,jriver_alk,jriver_dep, & 86 87 & xsdiss, & 87 & sedlam,sedlostpoc,jpkb,jdms,jdms_input,jdms_model 88 & sedlam,sedlostpoc,jpkb,jdms,jdms_input,jdms_model, & 89 & scl_chl, chl_out 88 90 #if defined key_roam 89 91 NAMELIST/natroam/ xthetaphy,xthetazoo,xthetanit, & … … 246 248 jdms_input = 0 247 249 jdms_model = 0 250 scl_chl = 1. 251 chl_out = 1 248 252 249 253 !REWIND(numnatm) … … 400 404 !! 1 = ANDR, 2 = SIMO, 3 = ARAN, 4 = HALL, 5 = ANDM 401 405 !! 406 !! UKESM1 - exported Chl to UM 407 !! scl_chl : scaling factor to tune the chl field sent to the UM 408 !! chl_out : select the chl field to send at the UM: 409 !! 1- Surf Chl ; 2- MLD Chl 410 402 411 IF(lwp) THEN 403 412 !! … … 909 918 !! 910 919 !! UKESM1 - new diagnostics !! Jpalm; AXY (08/07/15) 911 WRITE(numout,*) '=== UKESM1-related parameters' 912 WRITE(numout,*) & 913 & ' include DMS diagnostic?, jdms = ', jdms 914 if (jdms_input .eq. 0) then 915 WRITE(numout,*) & 916 & ' use instant (0) or diel-avg (1) inputs, jdms_input = instantaneous' 917 else 918 WRITE(numout,*) & 919 & ' use instant (0) or diel-avg (1) inputs, jdms_input = diel-average' 920 endif 921 if (jdms_model .eq. 1) then 922 WRITE(numout,*) & 923 & ' choice of DMS model passed to atmosphere, jdms_model = Anderson et al. (2001)' 924 elseif (jdms_model .eq. 2) then 925 WRITE(numout,*) & 926 & ' choice of DMS model passed to atmosphere, jdms_model = Simo & Dachs (2002)' 927 elseif (jdms_model .eq. 3) then 928 WRITE(numout,*) & 929 & ' choice of DMS model passed to atmosphere, jdms_model = Aranami & Tsunogai (2004)' 930 elseif (jdms_model .eq. 4) then 931 WRITE(numout,*) & 932 & ' choice of DMS model passed to atmosphere, jdms_model = Halloran et al. (2010)' 933 elseif (jdms_model .eq. 5) then 934 WRITE(numout,*) & 935 & ' choice of DMS model passed to atmosphere, jdms_model = Anderson et al. (2001; modified)' 936 endif 920 WRITE(numout,*) '=== UKESM1-related parameters ===' 921 WRITE(numout,*) ' ---- --- ---' 922 923 IF (lk_oasis) THEN 924 WRITE(numout,*) '=== UKESM1 -- coupled DMS to the atmosphere' 925 WRITE(numout,*) & 926 & ' include DMS diagnostic?, jdms = ', jdms 927 if (jdms_input .eq. 0) then 928 WRITE(numout,*) & 929 & ' use instant (0) or diel-avg (1) inputs, jdms_input = instantaneous' 930 else 931 WRITE(numout,*) & 932 & ' use instant (0) or diel-avg (1) inputs, jdms_input = diel-average' 933 endif 934 if (jdms_model .eq. 1) then 935 WRITE(numout,*) & 936 & ' choice of DMS model passed to atmosphere, jdms_model = Anderson et al. (2001)' 937 elseif (jdms_model .eq. 2) then 938 WRITE(numout,*) & 939 & ' choice of DMS model passed to atmosphere, jdms_model = Simo & Dachs (2002)' 940 elseif (jdms_model .eq. 3) then 941 WRITE(numout,*) & 942 & ' choice of DMS model passed to atmosphere, jdms_model = Aranami & Tsunogai (2004)' 943 elseif (jdms_model .eq. 4) then 944 WRITE(numout,*) & 945 & ' choice of DMS model passed to atmosphere, jdms_model = Halloran et al. (2010)' 946 elseif (jdms_model .eq. 5) then 947 WRITE(numout,*) & 948 & ' choice of DMS model passed to atmosphere, jdms_model = Anderson et al. (2001; modified)' 949 endif 950 951 WRITE(numout,*) '=== UKESM1 -- coupled Chl to the atmosphere' 952 WRITE(numout,*) & 953 & ' Scaling factor to export tuned Chl to the atmosphere scl_chl = ', scl_chl 954 IF (chl_out .eq. 1) THEN 955 WRITE(numout,*) & 956 & ' Chl field to be scaled and sent to the atmosphere: chl_out = Surface Chl field ' 957 ELSEIF (chl_out .eq. 2) THEN 958 WRITE(numout,*) & 959 & ' Chl field to be scaled and sent to the atmosphere: chl_out = MLD Chl field ' 960 ENDIF 961 ENDIF ! IF lk_oasis=true 937 962 !! 938 963 ENDIF … … 2059 2084 med_diag%CHL_MLD%dgsave = .FALSE. 2060 2085 ENDIF 2086 IF (iom_use("CHL_CPL")) THEN 2087 med_diag%CHL_CPL%dgsave = .TRUE. 2088 ELSE 2089 med_diag%CHL_CPL%dgsave = .FALSE. 2090 ENDIF 2061 2091 !! 3D 2062 2092 IF (iom_use("TPP3")) THEN
Note: See TracChangeset
for help on using the changeset viewer.