Changeset 15304
- Timestamp:
- 2021-09-30T16:51:27+02:00 (20 months ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src
- Files:
-
- 10 edited
-
OCE/ICB/icbrst.F90 (modified) (1 diff)
-
OCE/SBC/sbcblk.F90 (modified) (3 diffs)
-
OCE/SBC/sbccpl.F90 (modified) (13 diffs)
-
TOP/par_trc.F90 (modified) (2 diffs)
-
TOP/trcice.F90 (modified) (3 diffs)
-
TOP/trcini.F90 (modified) (5 diffs)
-
TOP/trcnam.F90 (modified) (8 diffs)
-
TOP/trcrst.F90 (modified) (4 diffs)
-
TOP/trcsms.F90 (modified) (3 diffs)
-
TOP/trcwri.F90 (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/OCE/ICB/icbrst.F90
r14075 r15304 210 210 IF( cl_path(LEN_TRIM(cl_path):) /= '/' ) cl_path = TRIM(cl_path) // '/' 211 211 WRITE(cl_kt, '(i8.8)') kt 212 cl_filename = TRIM(cexper)//"_ icebergs_"//cl_kt//"_restart"212 cl_filename = TRIM(cexper)//"_"//cl_kt//"_restart_icebergs" 213 213 IF( lk_mpp ) THEN 214 214 idg = MAX( INT(LOG10(REAL(MAX(1,jpnij-1),wp))) + 1, 4 ) ! how many digits to we need to write? min=4, max=9 -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/OCE/SBC/sbcblk.F90
r14075 r15304 40 40 USE fldread ! read input fields 41 41 USE sbc_oce ! Surface boundary condition: ocean fields 42 USE sbcapr , ONLY : apr ! sea surface pressure (Pa -- N m-2 ) -- JPALM 42 43 USE cyclone ! Cyclone 10m wind form trac of cyclone centres 43 44 USE sbcdcy ! surface boundary condition: diurnal cycle … … 145 146 !! *** ROUTINE sbc_blk_alloc *** 146 147 !!------------------------------------------------------------------- 147 ALLOCATE( Cd_atm (jpi,jpj), Ch_atm (jpi,jpj), Ce_atm (jpi,jpj), t_zu(jpi,jpj), q_zu(jpi,jpj), & 148 & cdn_oce(jpi,jpj), chn_oce(jpi,jpj), cen_oce(jpi,jpj), STAT=sbc_blk_alloc ) 148 IF( .NOT. ln_apr_dyn ) THEN 149 ALLOCATE( Cd_atm (jpi,jpj), Ch_atm (jpi,jpj), Ce_atm (jpi,jpj), t_zu(jpi,jpj), q_zu(jpi,jpj), & 150 & cdn_oce(jpi,jpj), chn_oce(jpi,jpj), cen_oce(jpi,jpj), & 151 & apr(jpi,jpj), STAT=sbc_blk_alloc ) 152 ELSE 153 ALLOCATE( Cd_atm (jpi,jpj), Ch_atm (jpi,jpj), Ce_atm (jpi,jpj), t_zu(jpi,jpj), q_zu(jpi,jpj), & 154 & cdn_oce(jpi,jpj), chn_oce(jpi,jpj), cen_oce(jpi,jpj), STAT=sbc_blk_alloc ) 155 ENDIF 149 156 ! 150 157 CALL mpp_sum ( 'sbcblk', sbc_blk_alloc ) … … 335 342 ! ! compute the surface ocean fluxes using bulk formulea 336 343 IF( MOD( kt - 1, nn_fsbc ) == 0 ) CALL blk_oce( kt, sf, sst_m, ssu_m, ssv_m ) 344 IF( MOD( kt - 1, nn_fsbc ) == 0 ) apr(:,:) = sf(jp_slp)%fnow(:,:,1) 337 345 338 346 #if defined key_cice -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/OCE/SBC/sbccpl.F90
r14075 r15304 37 37 USE sbcrnf , ONLY : l_rnfcpl 38 38 USE sbcisf , ONLY : l_isfcpl 39 USE par_trc , ONLY : ln_medusa 39 40 #if defined key_cice 40 41 USE ice_domain_size, only: ncat … … 48 49 USE lib_mpp ! distribued memory computing library 49 50 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 51 USE sms_medusa, ONLY: CO2Flux_out_cpl, DMS_out_cpl, chloro_out_cpl, PCO2a_in_cpl, Dust_in_cpl 50 52 51 53 #if defined key_oasis3 … … 120 122 INTEGER, PARAMETER :: jpr_tauwy = 56 ! y component of the ocean stress from waves 121 123 INTEGER, PARAMETER :: jpr_ts_ice = 57 ! Sea ice surface temp 122 123 INTEGER, PARAMETER :: jprcv = 57 ! total number of fields received 124 INTEGER, PARAMETER :: jpr_atm_pco2 = 58 ! Incoming atm pCO2 flux 125 INTEGER, PARAMETER :: jpr_atm_dust = 59 ! Incoming atm aggregate dust 126 127 INTEGER, PARAMETER :: jprcv = 59 ! total number of fields received 124 128 125 129 INTEGER, PARAMETER :: jps_fice = 1 ! ice fraction sent to the atmosphere … … 161 165 INTEGER, PARAMETER :: jps_sstfrz = 37 ! sea surface freezing temperature 162 166 INTEGER, PARAMETER :: jps_ttilyr = 38 ! sea ice top layer temp 163 164 INTEGER, PARAMETER :: jpsnd = 38 ! total number of fields sent 167 INTEGER, PARAMETER :: jps_bio_co2 = 39 ! MEDUSA air-sea CO2 flux 168 INTEGER, PARAMETER :: jps_bio_dms = 40 ! MEDUSA DMS surface concentration 169 INTEGER, PARAMETER :: jps_bio_chloro = 41 ! MEDUSA chlorophyll surface concentration 170 171 INTEGER, PARAMETER :: jpsnd = 41 ! total number of fields sent 165 172 166 173 #if ! defined key_oasis3 … … 184 191 & sn_snd_thick1, sn_snd_cond, sn_snd_mpnd , sn_snd_sstfrz, sn_snd_ttilyr 185 192 ! ! Received from the atmosphere 193 TYPE(FLD_C) :: sn_snd_bio_co2, sn_snd_bio_dms, sn_snd_bio_chloro 186 194 TYPE(FLD_C) :: sn_rcv_w10m, sn_rcv_taumod, sn_rcv_tau, sn_rcv_tauw, sn_rcv_dqnsdt, sn_rcv_qsr, & 187 195 & sn_rcv_qns , sn_rcv_emp , sn_rcv_rnf, sn_rcv_ts_ice 188 196 TYPE(FLD_C) :: sn_rcv_cal, sn_rcv_iceflx, sn_rcv_co2, sn_rcv_mslp, sn_rcv_icb, sn_rcv_isf 197 TYPE(FLD_C) :: sn_rcv_atm_pco2, sn_rcv_atm_dust 189 198 ! Send to waves 190 199 TYPE(FLD_C) :: sn_snd_ifrac, sn_snd_crtw, sn_snd_wlev … … 278 287 & sn_rcv_icb , sn_rcv_isf , sn_rcv_wfreq, sn_rcv_tauw , & 279 288 & sn_rcv_ts_ice 289 ! Add MEDUSA related fields to namelist 290 NAMELIST/namsbc_cpl/ sn_snd_bio_co2 , sn_snd_bio_dms, sn_snd_bio_chloro, & 291 & sn_rcv_atm_pco2, sn_rcv_atm_dust 292 280 293 !!--------------------------------------------------------------------- 281 294 ! … … 341 354 WRITE(numout,*)' - orientation = ', sn_snd_crt%clvor 342 355 WRITE(numout,*)' - mesh = ', sn_snd_crt%clvgrd 356 WRITE(numout,*)' bio co2 flux = ', TRIM(sn_snd_bio_co2%cldes),' (', TRIM(sn_snd_bio_co2%clcat), ')' 357 WRITE(numout,*)' bio dms flux = ', TRIM(sn_snd_bio_dms%cldes),' (', TRIM(sn_snd_bio_dms%clcat), ')' 358 WRITE(numout,*)' bio dms chlorophyll = ', TRIM(sn_snd_bio_chloro%cldes), ' (', TRIM(sn_snd_bio_chloro%clcat), ')' 343 359 WRITE(numout,*)' oce co2 flux = ', TRIM(sn_snd_co2%cldes ), ' (', TRIM(sn_snd_co2%clcat ), ')' 344 360 WRITE(numout,*)' ice effective conductivity = ', TRIM(sn_snd_cond%cldes ), ' (', TRIM(sn_snd_cond%clcat ), ')' … … 348 364 WRITE(numout,*)' mean sea level pressure = ', TRIM(sn_rcv_mslp%cldes ), ' (', TRIM(sn_rcv_mslp%clcat ), ')' 349 365 WRITE(numout,*)' surface current to waves = ', TRIM(sn_snd_crtw%cldes ), ' (', TRIM(sn_snd_crtw%clcat ), ')' 366 WRITE(numout,*)' atm pco2 = ', TRIM(sn_rcv_atm_pco2%cldes),'(', TRIM(sn_rcv_atm_pco2%clcat ), ')' 367 WRITE(numout,*)' atm dust = ', TRIM(sn_rcv_atm_dust%cldes),'(', TRIM(sn_rcv_atm_dust%clcat),')' 350 368 WRITE(numout,*)' - referential = ', sn_snd_crtw%clvref 351 369 WRITE(numout,*)' - orientation = ', sn_snd_crtw%clvor … … 569 587 IF(lwp) WRITE(numout,*) 570 588 ENDIF 589 ! ! --------------------------------------- ! 590 ! ! Incoming CO2 and DUST fluxes for MEDUSA ! 591 ! ! --------------------------------------- ! 592 srcv(jpr_atm_pco2)%clname = 'OATMPCO2' 593 IF (TRIM(sn_rcv_atm_pco2%cldes) == 'medusa') THEN 594 srcv(jpr_atm_pco2)%laction = .TRUE. 595 END IF 596 597 srcv(jpr_atm_dust)%clname = 'OATMDUST' 598 IF (TRIM(sn_rcv_atm_dust%cldes) == 'medusa') THEN 599 srcv(jpr_atm_dust)%laction = .TRUE. 600 END IF 571 601 ! 572 602 ! ! ------------------------- ! … … 928 958 ssnd(jps_co2)%clname = 'O_CO2FLX' ; IF( TRIM(sn_snd_co2%cldes) == 'coupled' ) ssnd(jps_co2 )%laction = .TRUE. 929 959 ! 960 ! ! ------------------------- ! 961 ! ! MEDUSA output fields ! 962 ! ! ------------------------- ! 963 ! Surface dimethyl sulphide from Medusa 964 ssnd(jps_bio_dms)%clname = 'OBioDMS' 965 IF( TRIM(sn_snd_bio_dms%cldes) == 'medusa' ) ssnd(jps_bio_dms )%laction = .TRUE. 966 967 ! Surface CO2 flux from Medusa 968 ssnd(jps_bio_co2)%clname = 'OBioCO2' 969 IF( TRIM(sn_snd_bio_co2%cldes) == 'medusa' ) ssnd(jps_bio_co2 )%laction = .TRUE. 970 971 ! Surface chlorophyll from Medusa 972 ssnd(jps_bio_chloro)%clname = 'OBioChlo' 973 IF( TRIM(sn_snd_bio_chloro%cldes) == 'medusa' ) ssnd(jps_bio_chloro )%laction = .TRUE. 974 ! 930 975 ! ! ------------------------- ! 931 976 ! ! Sea surface freezing temp ! … … 1694 1739 CASE( 'none' ) ! Not available as for now: needs additional coding below when computing zevap_oce 1695 1740 ! ! since fields received are not defined with none option 1696 CALL ctl_stop( 'STOP', 'sbccpl/sbc_cpl_ice_flx: some fields are not defined. Change sn_rcv_emp value in namelist namsbc_cpl')1741 CALL ctl_stop('STOP', 'sbccpl/sbc_cpl_ice_flx: some fields are not defined. Change sn_rcv_emp value in namelist namsbc_cpl') 1697 1742 END SELECT 1698 1743 … … 2029 2074 CASE( 'none' ) ! Not available as for now: needs additional coding 2030 2075 ! ! since fields received, here zqsr_tot, are not defined with none option 2031 CALL ctl_stop( 'STOP', 'sbccpl/sbc_cpl_ice_flx: some fields are not defined. Change sn_rcv_qsr value in namelist namsbc_cpl')2076 CALL ctl_stop('STOP', 'sbccpl/sbc_cpl_ice_flx: some fields are not defined. Change sn_rcv_qsr value in namelist namsbc_cpl') 2032 2077 END SELECT 2033 2078 IF( ln_dm2dc .AND. ln_cpl ) THEN ! modify qsr to include the diurnal cycle … … 2452 2497 CALL cpl_snd( jps_co2, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ) , info ) 2453 2498 ENDIF 2499 ! 2500 IF (ln_medusa) THEN 2501 ! ! ---------------------------------------------- ! 2502 ! ! CO2 flux, DMS and chlorophyll from MEDUSA ! 2503 ! ! ---------------------------------------------- ! 2504 IF ( ssnd(jps_bio_co2)%laction ) THEN 2505 CALL cpl_snd( jps_bio_co2, isec, RESHAPE( CO2Flux_out_cpl, (/jpi,jpj,1/) ), info ) 2506 ENDIF 2507 2508 IF ( ssnd(jps_bio_dms)%laction ) THEN 2509 CALL cpl_snd( jps_bio_dms, isec, RESHAPE( DMS_out_cpl, (/jpi,jpj,1/) ), info ) 2510 ENDIF 2511 2512 IF ( ssnd(jps_bio_chloro)%laction ) THEN 2513 CALL cpl_snd( jps_bio_chloro, isec, RESHAPE( chloro_out_cpl, (/jpi,jpj,1/) ), info ) 2514 ENDIF 2515 ENDIF 2454 2516 ! 2455 2517 ! ! ------------------------- ! -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/TOP/par_trc.F90
r14075 r15304 11 11 USE par_kind ! kind parameters 12 12 USE par_pisces ! PISCES model parameters 13 USE par_medusa ! MEDUSA model parameters 13 14 USE par_cfc ! CFCs tracers parameters 14 15 USE par_c14 ! C14 tracer parameters … … 31 32 32 33 LOGICAL, PUBLIC :: ln_pisces !: PISCES flag 34 LOGICAL, PUBLIC :: ln_medusa !: MEDUSA flag 33 35 LOGICAL, PUBLIC :: ln_age !: AGE flag 34 36 LOGICAL, PUBLIC :: ln_cfc11 !: CFC11 flag -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/TOP/trcice.F90
r14075 r15304 16 16 USE trcice_cfc ! CFC initialisation 17 17 USE trcice_pisces ! PISCES initialisation 18 USE trcice_medusa ! MEDUSA initialisation 18 19 USE trcice_c14 ! C14 bomb initialisation 19 20 USE trcice_age ! AGE initialisation … … 27 28 !!---------------------------------------------------------------------- 28 29 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 29 !! $Id $30 !! $Id: trcice.F90 11536 2019-09-11 13:54:18Z smasson $ 30 31 !! Software governed by the CeCILL license (see ./LICENSE) 31 32 !!---------------------------------------------------------------------- … … 54 55 IF ( nn_ice_tr == 1 ) THEN 55 56 IF( ln_pisces ) CALL trc_ice_ini_pisces ! PISCES bio-model 57 IF( ln_medusa ) CALL trc_ice_ini_medusa ! MEDUSA bio-model 56 58 IF( ll_cfc ) CALL trc_ice_ini_cfc ! CFC tracers 57 59 IF( ln_c14 ) CALL trc_ice_ini_c14 ! C14 tracer -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/TOP/trcini.F90
r14075 r15304 34 34 !!---------------------------------------------------------------------- 35 35 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 36 !! $Id $36 !! $Id: trcini.F90 12841 2020-05-01 10:52:40Z cetlod $ 37 37 !! Software governed by the CeCILL license (see ./LICENSE) 38 38 !!---------------------------------------------------------------------- … … 52 52 !!--------------------------------------------------------------------- 53 53 ! 54 USE trcini_medusa ! MEDUSA initialisation 55 !!USE trc_ini_medusa_conserv ! MEDUSA initialisation 56 54 57 IF( ln_timing ) CALL timing_start('trc_init') 55 58 ! … … 80 83 ! 81 84 CALL trc_ini_inv ! Inventories 85 ! 86 IF (ln_medusa) CALL trc_ini_medusa_conserv 82 87 ! 83 88 IF( ln_timing ) CALL timing_stop('trc_init') … … 140 145 !!---------------------------------------------------------------------- 141 146 USE trcini_pisces ! PISCES initialisation 147 USE trcini_medusa ! MEDUSA initialisation 142 148 USE trcini_cfc ! CFC initialisation 143 149 USE trcini_c14 ! C14 initialisation … … 160 166 ! 161 167 IF( ln_pisces ) CALL trc_ini_pisces ! PISCES model 168 IF( ln_medusa ) CALL trc_ini_medusa ! MEDUSA model 162 169 IF( ln_my_trc ) CALL trc_ini_my_trc ! MY_TRC model 163 170 IF( ll_cfc ) CALL trc_ini_cfc ! CFC's -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/TOP/trcnam.F90
r14075 r15304 37 37 !!---------------------------------------------------------------------- 38 38 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 39 !! $Id $39 !! $Id: trcnam.F90 11536 2019-09-11 13:54:18Z smasson $ 40 40 !! Software governed by the CeCILL license (see ./LICENSE) 41 41 !!---------------------------------------------------------------------- … … 50 50 !! ** Method : - read passive tracer namelist 51 51 !! - read namelist of each defined SMS model 52 !! ( (PISCES, CFC, MY_TRC )52 !! ( (PISCES, MEDUSA, CFC, MY_TRC ) 53 53 !!--------------------------------------------------------------------- 54 54 INTEGER :: jn ! dummy loop indice … … 147 147 INTEGER :: ios, ierr, icfc ! Local integer 148 148 !! 149 NAMELIST/namtrc/jp_bgc, ln_pisces, ln_m y_trc, ln_age, ln_cfc11, ln_cfc12, ln_sf6, ln_c14, &149 NAMELIST/namtrc/jp_bgc, ln_pisces, ln_medusa, ln_my_trc, ln_age, ln_cfc11, ln_cfc12, ln_sf6, ln_c14, & 150 150 & sn_tracer, ln_trcdta, ln_trcdmp, ln_trcdmp_clo, jp_dia3d, jp_dia2d 151 151 !!--------------------------------------------------------------------- … … 167 167 168 168 ! Control settings 169 IF( ln_pisces .AND. ln_my_trc ) CALL ctl_stop( 'Choose only ONE BGC model - PISCES or MY_TRC' ) 170 IF( .NOT. ln_pisces .AND. .NOT. ln_my_trc ) jp_bgc = 0 169 IF( ( ln_pisces .AND. ln_my_trc ) & 170 & .OR. ( ln_pisces .AND. ln_medusa ) & 171 & .OR. ( ln_medusa .AND. ln_my_trc ) ) CALL ctl_stop( 'Choose only ONE BGC model - PISCES or MEDUSA or MY_TRC' ) 172 ! 173 IF( .NOT. ln_pisces .AND. .NOT. ln_my_trc .AND. .NOT. ln_medusa ) jp_bgc = 0 171 174 ll_cfc = ln_cfc11 .OR. ln_cfc12 .OR. ln_sf6 172 175 ! … … 175 178 jp_my_trc = 0 ; jp_myt0 = 0 ; jp_myt1 = 0 176 179 jp_cfc = 0 ; jp_cfc0 = 0 ; jp_cfc1 = 0 177 jp_age = 0 ; jp_c14 = 0 180 jp_age = 0 ; jp_c14 = 0 ; jp_medusa = 0 178 181 ! 179 182 IF( ln_pisces ) THEN … … 181 184 jp_pcs0 = 1 182 185 jp_pcs1 = jp_pisces 186 ENDIF 187 IF( ln_medusa ) THEN 188 jp_medusa = jp_bgc 189 jp_msa0 = 1 190 jp_msa1 = jp_medusa 183 191 ENDIF 184 192 IF( ln_my_trc ) THEN … … 214 222 WRITE(numout,*) ' Total number of BGC tracers jp_bgc = ', jp_bgc 215 223 WRITE(numout,*) ' Simulating PISCES model ln_pisces = ', ln_pisces 224 WRITE(numout,*) ' Simulating MEDUSA model ln_medusa = ', ln_medusa 216 225 WRITE(numout,*) ' Simulating MY_TRC model ln_my_trc = ', ln_my_trc 217 226 WRITE(numout,*) ' Simulating water mass age ln_age = ', ln_age … … 245 254 !! ** Method : - read passive tracer namelist 246 255 !! - read namelist of each defined SMS model 247 !! ( (PISCES, CFC, MY_TRC )256 !! ( (PISCES, MEDUSA, CFC, MY_TRC ) 248 257 !!--------------------------------------------------------------------- 249 258 #if defined key_trdmxl_trc || defined key_trdtrc -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/TOP/trcrst.F90
r14075 r15304 32 32 PUBLIC trc_rst_wri ! called by ??? 33 33 PUBLIC trc_rst_cal 34 PUBLIC trc_rst_stat 34 35 35 36 !!---------------------------------------------------------------------- 36 37 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 37 !! $Id $38 !! $Id: trcrst.F90 11536 2019-09-11 13:54:18Z smasson $ 38 39 !! Software governed by the CeCILL license (see ./LICENSE) 39 40 !!---------------------------------------------------------------------- … … 129 130 !! ** purpose : write passive tracer fields in restart files 130 131 !!---------------------------------------------------------------------- 132 USE trcrst_medusa, ONLY: trc_rst_conserv 133 !! 131 134 INTEGER, INTENT( in ) :: kt ! ocean time-step index 132 135 !! … … 149 152 IF( kt == nitrst ) THEN 150 153 CALL trc_rst_stat ! statistics 154 CALL trc_rst_conserv ! Conservation Checks 151 155 CALL iom_close( numrtw ) ! close the restart file (only at last time step) 152 156 #if ! defined key_trdmxl_trc … … 353 357 !!---------------------------------------------------------------------- 354 358 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 355 !! $Id $359 !! $Id: trcrst.F90 11536 2019-09-11 13:54:18Z smasson $ 356 360 !! Software governed by the CeCILL license (see ./LICENSE) 357 361 !!====================================================================== -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/TOP/trcsms.F90
r14075 r15304 16 16 USE trc ! 17 17 USE trcsms_pisces ! PISCES biogeo-model 18 USE trcsms_medusa ! MEDUSA biogeo-model 18 19 USE trcsms_cfc ! CFC 11 &/or 12 19 20 USE trcsms_c14 ! C14 … … 29 30 !!---------------------------------------------------------------------- 30 31 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 31 !! $Id $32 !! $Id: trcsms.F90 10068 2018-08-28 14:09:04Z nicolasmartin $ 32 33 !! Software governed by the CeCILL license (see ./LICENSE) 33 34 !!---------------------------------------------------------------------- … … 50 51 ! 51 52 IF( ln_pisces ) CALL trc_sms_pisces ( kt ) ! main program of PISCES 53 IF( ln_medusa ) CALL trc_sms_medusa ( kt ) ! main program of MEDUSA 52 54 IF( ll_cfc ) CALL trc_sms_cfc ( kt ) ! surface fluxes of CFC 53 55 IF( ln_c14 ) CALL trc_sms_c14 ( kt ) ! surface fluxes of C14 -
NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/TOP/trcwri.F90
r14075 r15304 18 18 USE dianam ! Output file name 19 19 USE trcwri_pisces 20 USE trcwri_medusa 20 21 USE trcwri_cfc 21 22 USE trcwri_c14 … … 66 67 ! --------------------------------------- 67 68 IF( ln_pisces ) CALL trc_wri_pisces ! PISCES 69 IF( ln_medusa ) CALL trc_wri_medusa ! MEDUSA 68 70 IF( ll_cfc ) CALL trc_wri_cfc ! surface fluxes of CFC 69 71 IF( ln_c14 ) CALL trc_wri_c14 ! surface fluxes of C14 … … 88 90 !!---------------------------------------------------------------------- 89 91 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 90 !! $Id $92 !! $Id: trcwri.F90 12280 2019-12-21 10:42:44Z cetlod $ 91 93 !! Software governed by the CeCILL license (see ./LICENSE) 92 94 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.
