New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13808 for NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/OCE – NEMO

Ignore:
Timestamp:
2020-11-18T11:00:57+01:00 (4 years ago)
Author:
rlod
Message:

New and modified routines for the biogeochemical tracer source from Antarctic Ice Sheet

Location:
NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/OCE/SBC/sbcrnf.F90

    r13497 r13808  
    4242   REAL(wp)                   ::      rn_dep_max        !: depth over which runoffs is spread       (ln_rnf_depth_ini =T) 
    4343   INTEGER                    ::      nn_rnf_depth_file !: create (=1) a runoff depth file or not (=0) 
    44    LOGICAL                   ::   ln_rnf_icb        !: iceberg flux is specified in a file 
     44   LOGICAL           , PUBLIC ::   ln_rnf_icb        !: iceberg flux is specified in a file 
    4545   LOGICAL                    ::   ln_rnf_tem        !: temperature river runoffs attribute specified in a file 
    4646   LOGICAL           , PUBLIC ::   ln_rnf_sal        !: salinity    river runoffs attribute specified in a file 

  • NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/OCE/nemogcm.F90

    r13286 r13808  
    491491                           CALL dyn_spg_init         ! surface pressure gradient 
    492492 
     493      !                                      ! Icebergs 
     494                           CALL icb_init( rn_Dt, nit000)   ! initialise icebergs instance 
     495 
     496                                                ! ice shelf 
     497                           CALL isf_init( Nbb, Nnn, Naa ) 
    493498#if defined key_top 
    494499      !                                      ! Passive tracers 
    … …  
    496501#endif 
    497502      IF( l_ldfslp     )   CALL ldf_slp_init    ! slope of lateral mixing 
    498  
    499       !                                      ! Icebergs 
    500                            CALL icb_init( rn_Dt, nit000)   ! initialise icebergs instance 
    501  
    502                                                 ! ice shelf 
    503                            CALL isf_init( Nbb, Nnn, Naa ) 
    504503 
    505504      !                                      ! Misc. options 
Note: See TracChangeset for help on using the changeset viewer.