Changeset 2194
- Timestamp:
- 02/10/14 18:18:53 (11 years ago)
- Location:
- CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO
- Files:
-
- 3 added
- 12 deleted
- 3 edited
-
arch-X64_CURIE.fcm (modified) (2 diffs)
-
bld.cfg (added)
-
bld_preproagr.cfg (added)
-
bldxag.cfg (added)
-
closea.F90 (deleted)
-
geo2ocean.F90 (deleted)
-
limistate.F90 (deleted)
-
limrst.F90 (deleted)
-
limsbc.F90 (deleted)
-
p4zlys.F90 (deleted)
-
sbc_ice.F90 (deleted)
-
sbc_oce.F90 (deleted)
-
sbccpl.F90 (modified) (2 diffs)
-
sbcice_if.F90 (deleted)
-
sbcice_lim.F90 (deleted)
-
sbcice_lim_2.F90 (deleted)
-
sbcmod.F90 (modified) (11 diffs)
-
stpctl.F90 (deleted)
Legend:
- Unmodified
- Added
- Removed
-
CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/arch-X64_CURIE.fcm
r2093 r2194 30 30 # 31 31 %XIOS_HOME ${PWD}/../../XIOS 32 %OASIS_HOME ${PWD}/../../../ prism/X6432 %OASIS_HOME ${PWD}/../../../oasis3-mct/BLD 33 33 34 34 %NCDF_INC -I${NETCDF_INC_DIR} … … 37 37 %XIOS_LIB -L%XIOS_HOME/lib -lxios 38 38 %OASIS_INC -I%OASIS_HOME/build/lib/psmile.MPI1 39 %OASIS_LIB -L%OASIS_HOME/lib -lpsmile.MPI1 -l mpp_io39 %OASIS_LIB -L%OASIS_HOME/lib -lpsmile.MPI1 -lscrip -lmct -lmpeu 40 40 41 41 %FC mpif90 -c -cpp -
CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/sbccpl.F90
r2189 r2194 63 63 PUBLIC sbc_cpl_ice_tau ! routine called by sbc_ice_lim(_2).F90 64 64 PUBLIC sbc_cpl_ice_flx ! routine called by sbc_ice_lim(_2).F90 65 #if defined key_oasis_mct 66 PUBLIC sbc_cpl_init 67 #endif 65 68 66 69 INTEGER, PARAMETER :: jpr_otx1 = 1 ! 3 atmosphere-ocean stress components on grid 1 … … 680 683 CALL wrk_alloc( jpi,jpj, ztx, zty ) 681 684 682 IF( kt == nit000 ) CALL sbc_cpl_init( k_ice ) ! initialisation 683 685 #if ! defined key_oasis_mct 686 IF( kt == nit000 ) CALL sbc_cpl_init( k_ice ) ! initialisation 687 #endif 684 688 ! ! Receive all the atmos. fields (including ice information) 685 689 isec = ( kt - nit000 ) * NINT( rdttra(1) ) ! date of exchanges -
CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/sbcmod.F90
r2113 r2194 42 42 USE sbcfwb ! surface boundary condition: freshwater budget 43 43 USE closea ! closed sea 44 USE bdy_par ! for lk_bdy45 USE bdyice_lim2 ! unstructured open boundary data (bdy_ice_lim_2 routine)46 44 USE icbstp ! Icebergs! 47 45 … … 65 63 !!---------------------------------------------------------------------- 66 64 !! NEMO/OPA 4.0 , NEMO-consortium (2011) 67 !! $Id: sbcmod.F90 3905 2013-05-24 13:40:39Z cetlod $65 !! $Id: sbcmod.F90 4230 2013-11-18 11:57:11Z cetlod $ 68 66 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 69 67 !!---------------------------------------------------------------------- … … 84 82 INTEGER :: icpt ! local integer 85 83 !! 86 NAMELIST/namsbc/ nn_fsbc , nn_ice_dyn, ln_ana, ln_flx, ln_blk_clio, ln_blk_core, ln_cpl, &84 NAMELIST/namsbc/ nn_fsbc , ln_ana , ln_flx, ln_blk_clio, ln_blk_core, ln_cpl, & 87 85 & ln_blk_mfs, ln_apr_dyn, nn_ice, nn_ice_embd, ln_dm2dc , ln_rnf, & 88 & ln_ssr , nn_fwb , ln_cdgw , ln_wave , ln_sdw, cn_iceflx 86 & ln_ssr , nn_fwb , ln_cdgw , ln_wave , ln_sdw, nn_lsm, cn_iceflx 87 INTEGER :: ios 89 88 !!---------------------------------------------------------------------- 90 89 … … 95 94 ENDIF 96 95 97 REWIND( numnam ) ! Read Namelist namsbc 98 READ ( numnam, namsbc ) 96 REWIND( numnam_ref ) ! Namelist namsbc in reference namelist : Surface boundary 97 READ ( numnam_ref, namsbc, IOSTAT = ios, ERR = 901) 98 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist', lwp ) 99 100 REWIND( numnam_cfg ) ! Namelist namsbc in configuration namelist : Parameters of the run 101 READ ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 102 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 103 WRITE ( numond, namsbc ) 99 104 100 105 ! ! overwrite namelist parameter using CPP key information … … 108 113 nn_ice = 0 109 114 ENDIF 110 115 111 116 IF(lwp) THEN ! Control print 112 117 WRITE(numout,*) ' Namelist namsbc (partly overwritten with CPP key setting)' 113 118 WRITE(numout,*) ' frequency update of sbc (and ice) nn_fsbc = ', nn_fsbc 114 WRITE(numout,*) ' frequency ice rheology and dynamics nn_ice_dyn = ', nn_ice_dyn115 119 WRITE(numout,*) ' Type of sbc : ' 116 120 WRITE(numout,*) ' analytical formulation ln_ana = ', ln_ana … … 121 125 WRITE(numout,*) ' coupled formulation (T if key_sbc_cpl) ln_cpl = ', ln_cpl 122 126 WRITE(numout,*) ' Flux handling over ice categories cn_iceflx = ', TRIM (cn_iceflx) 123 124 WRITE(numout,*) ' lk_lim2 : ', lk_lim2125 WRITE(numout,*) ' lk_lim3 : ', lk_lim3126 127 128 127 WRITE(numout,*) ' Misc. options of sbc : ' 129 128 WRITE(numout,*) ' Patm gradient added in ocean & ice Eqs. ln_apr_dyn = ', ln_apr_dyn … … 135 134 WRITE(numout,*) ' FreshWater Budget control (=0/1/2) nn_fwb = ', nn_fwb 136 135 WRITE(numout,*) ' closed sea (=0/1) (set in namdom) nn_closea = ', nn_closea 137 ENDIF 138 139 ! Flux handling over ice categories 136 WRITE(numout,*) ' n. of iterations if land-sea-mask applied nn_lsm = ', nn_lsm 137 ENDIF 138 139 ! Flux handling over ice categories 140 #if defined key_coupled 140 141 SELECT CASE ( TRIM (cn_iceflx)) 141 142 CASE ('ave') … … 149 150 ln_iceflx_linear = .FALSE. 150 151 END SELECT 151 WRITE(numout,*) ' Fluxes averaged over all ice categories ln_iceflx_ave = ', ln_iceflx_ave 152 WRITE(numout,*) ' Fluxes distributed linearly over ice categories ln_iceflx_linear = ', ln_iceflx_linear 152 IF(lwp) WRITE(numout,*) ' Fluxes averaged over all ice categories ln_iceflx_ave = ', ln_iceflx_ave 153 IF(lwp) WRITE(numout,*) ' Fluxes distributed linearly over ice categories ln_iceflx_linear = ', ln_iceflx_linear 154 #endif 153 155 ! 154 156 ! ! allocate sbc arrays … … 190 192 IF( ( nn_ice == 3 .OR. nn_ice == 4 ) .AND. nn_ice_embd == 0 ) & 191 193 & CALL ctl_stop( 'LIM3 and CICE sea-ice models require nn_ice_embd = 1 or 2' ) 192 194 #if defined key_coupled 193 195 IF( ln_iceflx_ave .AND. ln_iceflx_linear ) & 194 196 & CALL ctl_stop( ' ln_iceflx_ave and ln_iceflx_linear options are not compatible' ) 195 196 197 IF( ( nn_ice ==3 .AND. lk_cpl) .AND. .NOT. ( ln_iceflx_ave .OR. ln_iceflx_linear ) ) & 197 198 & CALL ctl_stop( ' With lim3 coupled, either ln_iceflx_ave or ln_iceflx_linear must be set to .TRUE.' ) 198 199 #endif 199 200 IF( ln_dm2dc ) nday_qsr = -1 ! initialisation flag 200 201 … … 249 250 ENDIF 250 251 ! 252 CALL sbc_ssm_init ! Sea-surface mean fields initialisation 253 ! 251 254 IF( ln_ssr ) CALL sbc_ssr_init ! Sea-Surface Restoring initialisation 252 255 ! 253 256 IF( nn_ice == 4 ) CALL cice_sbc_init( nsbc ) ! CICE initialisation 257 ! 258 #if defined key_oasis_mct 259 IF( nsbc == 5 ) CALL sbc_cpl_init (nn_ice) 260 #endif 254 261 ! 255 262 END SUBROUTINE sbc_init … … 324 331 CASE( 1 ) ; CALL sbc_ice_if ( kt ) ! Ice-cover climatology ("Ice-if" model) 325 332 CASE( 2 ) ; CALL sbc_ice_lim_2( kt, nsbc ) ! LIM-2 ice model 326 IF( lk_bdy ) CALL bdy_ice_lim_2( kt ) ! BDY boundary condition327 333 CASE( 3 ) ; CALL sbc_ice_lim ( kt, nsbc ) ! LIM-3 ice model 334 !is it useful? 328 335 CASE( 4 ) ; CALL sbc_ice_cice ( kt, nsbc ) ! CICE ice model 329 336 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.
