Changeset 13558 for NEMO/trunk
- Timestamp:
- 2020-10-02T17:30:22+02:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 65 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/1_namelist_cfg
r13472 r13558 358 358 !! !! 359 359 !! namtrd dynamics and/or tracer trends (default: OFF) 360 !! namptr Poleward Transport Diagnostics (default: OFF)361 360 !! namhsb Heat and salt budgets (default: OFF) 362 361 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/2_namelist_cfg
r13216 r13558 307 307 !! !! 308 308 !! namtrd dynamics and/or tracer trends (default: OFF) 309 !! namptr Poleward Transport Diagnostics (default: OFF)310 309 !! namhsb Heat and salt budgets (default: OFF) 311 310 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/3_namelist_cfg
r13216 r13558 307 307 !! !! 308 308 !! namtrd dynamics and/or tracer trends (default: OFF) 309 !! namptr Poleward Transport Diagnostics (default: OFF)310 309 !! namhsb Heat and salt budgets (default: OFF) 311 310 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/namelist_cfg
r13472 r13558 359 359 !! !! 360 360 !! namtrd dynamics and/or tracer trends (default: OFF) 361 !! namptr Poleward Transport Diagnostics (default: OFF)362 361 !! namhsb Heat and salt budgets (default: OFF) 363 362 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/cfgs/AMM12/EXPREF/namelist_cfg
r13461 r13558 345 345 !! !! 346 346 !! namtrd dynamics and/or tracer trends (default: OFF) 347 !! namptr Poleward Transport Diagnostics (default: OFF)348 347 !! namhsb Heat and salt budgets (default: OFF) 349 348 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/cfgs/C1D_PAPA/EXPREF/namelist_cfg
r13461 r13558 414 414 !! !! 415 415 !! namtrd dynamics and/or tracer trends (default: OFF) 416 !! namptr Poleward Transport Diagnostics (default: OFF)417 416 !! namhsb Heat and salt budgets (default: OFF) 418 417 !! namdiu Cool skin and warm layer models (default: OFF) … … 429 428 / 430 429 !----------------------------------------------------------------------- 431 &namptr ! Poleward Transport Diagnostic (default: OFF)432 430 !----------------------------------------------------------------------- 433 431 / -
NEMO/trunk/cfgs/GYRE_BFM/EXPREF/namelist_cfg
r13461 r13558 223 223 !! !! 224 224 !! namtrd dynamics and/or tracer trends (default: OFF) 225 !! namptr Poleward Transport Diagnostics (default: OFF)226 225 !! namhsb Heat and salt budgets (default: OFF) 227 226 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/cfgs/GYRE_PISCES/EXPREF/namelist_cfg
r13461 r13558 217 217 !! !! 218 218 !! namtrd dynamics and/or tracer trends (default: OFF) 219 !! namptr Poleward Transport Diagnostics (default: OFF)220 219 !! namhsb Heat and salt budgets (default: OFF) 221 220 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/cfgs/ORCA2_ICE_ABL/EXPREF/namelist_cfg
r13461 r13558 401 401 !! !! 402 402 !! namtrd dynamics and/or tracer trends (default: OFF) 403 !! namptr Poleward Transport Diagnostics (default: OFF)404 403 !! namhsb Heat and salt budgets (default: OFF) 405 404 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/cfgs/ORCA2_ICE_PISCES/EXPREF/namelist_cfg
r13472 r13558 400 400 !! !! 401 401 !! namtrd dynamics and/or tracer trends (default: OFF) 402 !! namptr Poleward Transport Diagnostics (default: OFF)403 402 !! namhsb Heat and salt budgets (default: OFF) 404 403 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/cfgs/ORCA2_OFF_PISCES/EXPREF/namelist_cfg
r13461 r13558 199 199 &namdrg ! top/bottom drag coefficient (default: NO selection) 200 200 !----------------------------------------------------------------------- 201 ln_drg_OFF = .true. ! must select one drag coefficient to true even if we don't use it 201 202 / 202 203 !----------------------------------------------------------------------- … … 347 348 &namzdf ! vertical physics manager (default: NO selection) 348 349 !----------------------------------------------------------------------- 350 ln_zdfcst = .true. ! must select one vertical physics to true even if we don't use it 349 351 / 350 352 !----------------------------------------------------------------------- … … 372 374 !! !! 373 375 !! namtrd dynamics and/or tracer trends (default: OFF) 374 !! namptr Poleward Transport Diagnostics (default: OFF)375 376 !! namhsb Heat and salt budgets (default: OFF) 376 377 !! namdiu Cool skin and warm layer models (default: OFF) … … 387 388 / 388 389 !----------------------------------------------------------------------- 389 &namptr ! Poleward Transport Diagnostic (default: OFF)390 390 !----------------------------------------------------------------------- 391 391 / -
NEMO/trunk/cfgs/ORCA2_OFF_TRC/EXPREF/namelist_cfg
r13461 r13558 370 370 !! !! 371 371 !! namtrd dynamics and/or tracer trends (default: OFF) 372 !! namptr Poleward Transport Diagnostics (default: OFF)373 372 !! namhsb Heat and salt budgets (default: OFF) 374 373 !! namdiu Cool skin and warm layer models (default: OFF) … … 385 384 / 386 385 !----------------------------------------------------------------------- 387 &namptr ! Poleward Transport Diagnostic (default: OFF)388 386 !----------------------------------------------------------------------- 389 387 / -
NEMO/trunk/cfgs/ORCA2_SAS_ICE/EXPREF/namelist_cfg
r13461 r13558 171 171 !! !! 172 172 !! namtrd dynamics and/or tracer trends (default: OFF) 173 !! namptr Poleward Transport Diagnostics (default: OFF)174 173 !! namhsb Heat and salt budgets (default: OFF) 175 174 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/cfgs/SHARED/namelist_ref
r13476 r13558 459 459 !----------------------------------------------------------------------- 460 460 ln_rnf_mouth = .false. ! specific treatment at rivers mouths 461 rn_hrnf = 15.e0 ! depth over which enhanced vertical mixing is used (ln_rnf_mouth=T)462 rn_avt_rnf = 1.e-3 ! value of the additional vertical mixing coef. [m2/s] (ln_rnf_mouth=T)463 rn_rfact = 1.e0 ! multiplicative factor for runoff461 rn_hrnf = 15.e0 ! depth over which enhanced vertical mixing is used (ln_rnf_mouth=T) 462 rn_avt_rnf = 1.e-3 ! value of the additional vertical mixing coef. [m2/s] (ln_rnf_mouth=T) 463 rn_rfact = 1.e0 ! multiplicative factor for runoff 464 464 ln_rnf_depth = .false. ! read in depth information for runoff 465 ln_rnf_tem = .false. ! read in temperature information for runoff 466 ln_rnf_sal = .false. ! read in salinity information for runoff 467 ln_rnf_depth_ini = .false. ! compute depth at initialisation from runoff file 468 rn_rnf_max = 5.735e-4 ! max value of the runoff climatologie over global domain ( ln_rnf_depth_ini = .true ) 469 rn_dep_max = 150. ! depth over which runoffs is spread ( ln_rnf_depth_ini = .true ) 470 nn_rnf_depth_file = 0 ! create (=1) a runoff depth file or not (=0) 471 472 cn_dir = './' ! root directory for the runoff data location 465 ln_rnf_tem = .false. ! read in temperature information for runoff 466 ln_rnf_sal = .false. ! read in salinity information for runoff 467 ln_rnf_icb = .false. ! read iceberg flux 468 ln_rnf_depth_ini = .false. ! compute depth at initialisation from runoff file 469 rn_rnf_max = 5.735e-4 ! max value of the runoff climatologie over global domain ( ln_rnf_depth_ini = .true ) 470 rn_dep_max = 150. ! depth over which runoffs is spread ( ln_rnf_depth_ini = .true ) 471 nn_rnf_depth_file = 0 ! create (=1) a runoff depth file or not (=0) 472 473 cn_dir = './' ! root directory for the runoff data location 473 474 !___________!_________________________!___________________!___________!_____________!________!___________!__________________!__________!_______________! 474 475 ! ! file name ! frequency (hours) ! variable ! time interp.! clim ! 'yearly'/ ! weights filename ! rotation ! land/sea mask ! 475 476 ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! ! pairing ! filename ! 476 477 sn_rnf = 'runoff_core_monthly' , -1. , 'sorunoff', .true. , .true. , 'yearly' , '' , '' , '' 477 sn_cnf = 'runoff_core_monthly' , 0. , 'socoefr0', .false. , .true. , 'yearly' , '' , '' , ''478 sn_cnf = 'runoff_core_monthly' , -12. , 'socoefr0', .false. , .true. , 'yearly' , '' , '' , '' 478 479 sn_s_rnf = 'runoffs' , 24. , 'rosaline', .true. , .true. , 'yearly' , '' , '' , '' 479 480 sn_t_rnf = 'runoffs' , 24. , 'rotemper', .true. , .true. , 'yearly' , '' , '' , '' 480 sn_dep_rnf = 'runoffs' , 0. , 'rodepth' , .false. , .true. , 'yearly' , '' , '' , '' 481 sn_i_rnf = 'NOT USED' , 24. , 'xxxxxxxx', .true. , .true. , 'yearly' , '' , '' , '' 482 sn_dep_rnf = 'runoffs' , -12. , 'rodepth' , .false. , .true. , 'yearly' , '' , '' , '' 481 483 / 482 484 !----------------------------------------------------------------------- … … 1049 1051 ln_dynrnf = .false. ! runoffs option enabled (T) or not (F) 1050 1052 ln_dynrnf_depth = .false. ! runoffs is spread in vertical (T) or not (F) 1051 ! fwbcorr = 3.786e-06! annual global mean of empmr for ssh correction1053 fwbcorr = 0.0 ! annual global mean of empmr for ssh correction 1052 1054 1053 1055 cn_dir = './' ! root directory for the ocean data location … … 1233 1235 !! !! 1234 1236 !! namtrd dynamics and/or tracer trends (default: OFF) 1235 !! namptr Poleward Transport Diagnostics (default: OFF)1236 1237 !! namhsb Heat and salt budgets (default: OFF) 1237 1238 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/cfgs/SPITZ12/EXPREF/namelist_cfg
r13472 r13558 359 359 !! !! 360 360 !! namtrd dynamics and/or tracer trends (default: OFF) 361 !! namptr Poleward Transport Diagnostics (default: OFF)362 361 !! namhsb Heat and salt budgets (default: OFF) 363 362 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/cfgs/WED025/EXPREF/namelist_cfg
r13461 r13558 567 567 !! !! 568 568 !! namtrd dynamics and/or tracer trends (default: OFF) 569 !! namptr Poleward Transport Diagnostics (default: OFF)570 569 !! namhsb Heat and salt budgets (default: OFF) 571 570 !! namdiu Cool skin and warm layer models (default: OFF) … … 584 583 / 585 584 !----------------------------------------------------------------------- 586 &namptr ! Poleward Transport Diagnostic (default: OFF)587 585 !----------------------------------------------------------------------- 588 586 / -
NEMO/trunk/src/ICE/icestp.F90
r13546 r13558 263 263 CALL ice_thd_init ! set ice thermodynics parameters (clem: important to call it first for melt ponds) 264 264 ! 265 ! ! Initial sea-ice state 266 CALL ice_istate_init 265 CALL ice_sbc_init ! set ice-ocean and ice-atm. coupling parameters 266 ! 267 CALL ice_istate_init ! Initial sea-ice state 267 268 IF ( ln_rstart .OR. nn_iceini_file == 2 ) THEN 268 269 CALL ice_rst_read( Kbb, Kmm, Kaa ) ! start from a restart file … … 272 273 CALL ice_var_glo2eqv 273 274 CALL ice_var_agg(1) 274 !275 CALL ice_sbc_init ! set ice-ocean and ice-atm. coupling parameters276 275 ! 277 276 CALL ice_dyn_init ! set ice dynamics parameters -
NEMO/trunk/src/OCE/DIU/diu_bulk.F90
r13295 r13558 22 22 23 23 ! Namelist parameters 24 LOGICAL, PUBLIC :: ln_diurnal 25 LOGICAL, PUBLIC :: ln_diurnal_only 24 LOGICAL, PUBLIC :: ln_diurnal = .false. ! force definition if diurnal_sst_bulk_init is not called 25 LOGICAL, PUBLIC :: ln_diurnal_only = .false. ! force definition if diurnal_sst_bulk_init is not called 26 26 27 27 ! Parameters -
NEMO/trunk/src/OCE/DOM/closea.F90
r13286 r13558 38 38 LOGICAL, PUBLIC :: ln_clo_rnf !: closed sea treated as runoff (update rnf mask) 39 39 40 LOGICAL, PUBLIC :: l_sbc_clo !: T => net evap/precip over closed seas spread outover the globe/river mouth 41 LOGICAL, PUBLIC :: l_clo_rnf !: T => Some closed seas output freshwater (RNF) to specified runoff points. 42 43 INTEGER, PUBLIC :: ncsg !: number of closed seas global mappings (inferred from closea_mask_glo field) 44 INTEGER, PUBLIC :: ncsr !: number of closed seas rnf mappings (inferred from closea_mask_rnf field) 45 INTEGER, PUBLIC :: ncse !: number of closed seas empmr mappings (inferred from closea_mask_emp field) 40 ! WARNING: keep default definitions in the following lines as dom_clo is called only if ln_closea = .true. 41 LOGICAL, PUBLIC :: l_sbc_clo = .FALSE. !: T => net evap/precip over closed seas spread outover the globe/river mouth 42 LOGICAL, PUBLIC :: l_clo_rnf = .FALSE. !: T => Some closed seas output freshwater (RNF) to specified runoff points. 43 44 INTEGER, PUBLIC :: ncsg = 0 !: number of closed seas global mappings (inferred from closea_mask_glo field) 45 INTEGER, PUBLIC :: ncsr = 0 !: number of closed seas rnf mappings (inferred from closea_mask_rnf field) 46 INTEGER, PUBLIC :: ncse = 0 !: number of closed seas empmr mappings (inferred from closea_mask_emp field) 46 47 47 48 INTEGER, PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:) :: mask_opnsea, mask_csundef !: mask defining the open sea and the undefined closed sea -
NEMO/trunk/src/OCE/DOM/daymod.F90
r13286 r13558 82 82 ndt05 = NINT( 0.5 * rn_Dt ) 83 83 84 IF( .NOT. l_offline ) CALL day_rst( nit000, 'READ' ) 85 84 lrst_oce = .NOT. l_offline ! force definition of offline 85 IF( lrst_oce ) CALL day_rst( nit000, 'READ' ) 86 86 87 ! set the calandar from ndastp (read in restart file and namelist) 87 88 nyear = ndastp / 10000 -
NEMO/trunk/src/OCE/DOM/domain.F90
r13472 r13558 120 120 WRITE(numout,*) ' cn_cfg = ', TRIM( cn_cfg ), ' nn_cfg = ', nn_cfg 121 121 ENDIF 122 nn_wxios = 0123 ln_xios_read = .FALSE.124 122 ! 125 123 ! !== Reference coordinate system ==! -
NEMO/trunk/src/OCE/DYN/divhor.F90
r13497 r13558 78 78 ! 79 79 DO_3D( 0, 0, 0, 0, 1, jpkm1 ) !== Horizontal divergence ==! 80 hdiv(ji,jj,jk) = ( e2u(ji ,jj) * e3u(ji ,jj,jk,Kmm) * uu(ji ,jj,jk,Kmm) &80 hdiv(ji,jj,jk) = ( e2u(ji ,jj) * e3u(ji ,jj,jk,Kmm) * uu(ji ,jj,jk,Kmm) & 81 81 & - e2u(ji-1,jj) * e3u(ji-1,jj,jk,Kmm) * uu(ji-1,jj,jk,Kmm) & 82 82 & + e1v(ji,jj ) * e3v(ji,jj ,jk,Kmm) * vv(ji,jj ,jk,Kmm) & -
NEMO/trunk/src/OCE/DYN/wet_dry.F90
r13497 r13558 57 57 REAL(wp), PUBLIC :: ssh_ref !: height of z=0 with respect to the geoid; 58 58 59 LOGICAL, PUBLIC :: ll_wd !: Wetting/drying activation switch if either ln_wd_il or ln_wd_dl59 LOGICAL, PUBLIC :: ll_wd = .FALSE. !: Wetting/drying activation switch (ln_wd_il or ln_wd_dl) <- default def if wad_init not called 60 60 61 61 PUBLIC wad_init ! initialisation routine called by step.F90 … … 111 111 112 112 r_rn_wdmin1 = 1 / rn_wdmin1 113 ll_wd = .FALSE.114 113 IF( ln_wd_il .OR. ln_wd_dl ) THEN 115 114 ll_wd = .TRUE. -
NEMO/trunk/src/OCE/FLO/flo_oce.F90
r11536 r13558 19 19 !! ---------------- 20 20 LOGICAL, PUBLIC :: ln_floats !: Activate floats or not 21 INTEGER, PUBLIC :: jpnfl 21 INTEGER, PUBLIC :: jpnfl = 0 !: total number of floats during the run 22 22 INTEGER, PUBLIC :: jpnnewflo !: number of floats added in a new run 23 23 INTEGER, PUBLIC :: jpnrstflo !: number of floats for the restart -
NEMO/trunk/src/OCE/ICB/icbtrj.F90
r13062 r13558 35 35 PUBLIC icb_trj_end ! routine called in icbstp.F90 module 36 36 37 INTEGER :: num_traj 37 INTEGER :: num_traj = 0 38 38 INTEGER :: n_dim, m_dim 39 39 INTEGER :: ntrajid -
NEMO/trunk/src/OCE/IOM/iom_def.F90
r13286 r13558 33 33 INTEGER, PUBLIC :: iom_open_init = 0 !: used to initialize iom_file(:)%nfid to 0 34 34 !XIOS write restart 35 LOGICAL, PUBLIC :: lwxios 36 INTEGER, PUBLIC :: nxioso !: type of restart file when writing using XIOS 1 - single, 2 - multiple35 LOGICAL, PUBLIC :: lwxios = .FALSE. !: write single file restart using XIOS 36 INTEGER, PUBLIC :: nxioso = 0 !: type of restart file when writing using XIOS 1 - single, 2 - multiple 37 37 !XIOS read restart 38 LOGICAL, PUBLIC :: lrxios 38 LOGICAL, PUBLIC :: lrxios = .FALSE. !: read single file restart using XIOS 39 39 LOGICAL, PUBLIC :: lxios_sini = .FALSE. ! is restart in a single file 40 40 LOGICAL, PUBLIC :: lxios_set = .FALSE. -
NEMO/trunk/src/OCE/ISF/isf_oce.F90
r12077 r13558 74 74 ! 75 75 ! 2.1 -------- ice shelf cavity parameter -------------- 76 LOGICAL , PUBLIC :: l_isfoasis 76 LOGICAL , PUBLIC :: l_isfoasis = .FALSE. 77 77 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: risfload !: ice shelf load 78 78 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: fwfisf_oasis -
NEMO/trunk/src/OCE/LDF/ldftra.F90
r13497 r13558 246 246 ENDIF 247 247 ! 248 IF( ln_ldfeiv .AND. .NOT.( ln_traldf_iso .OR. ln_traldf_triad ) ) & 249 & CALL ctl_stop( 'ln_ldfeiv=T requires iso-neutral laplacian diffusion' ) 250 IF( ln_isfcav .AND. ln_traldf_triad ) & 251 & CALL ctl_stop( ' ice shelf cavity and traldf_triad not tested' ) 248 IF( ln_isfcav .AND. ln_traldf_triad ) CALL ctl_stop( ' ice shelf cavity and traldf_triad not tested' ) 252 249 ! 253 250 IF( nldf_tra == np_lap_i .OR. nldf_tra == np_lap_it .OR. & … … 541 538 IF( ln_traldf_blp ) CALL ctl_stop( 'ldf_eiv_init: eddy induced velocity ONLY with laplacian diffusivity' ) 542 539 ! 540 IF( .NOT.( ln_traldf_iso .OR. ln_traldf_triad ) ) & 541 & CALL ctl_stop( 'ln_ldfeiv=T requires iso-neutral laplacian diffusion' ) 543 542 ! != allocate the aei arrays 544 543 ALLOCATE( aeiu(jpi,jpj,jpk), aeiv(jpi,jpj,jpk), STAT=ierr ) -
NEMO/trunk/src/OCE/ZDF/zdfdrg.F90
r13497 r13558 383 383 IF(ll_bot) zmsk_boost(:,:) = zmsk_boost(:,:) * ssmask(:,:) ! x seafloor mask 384 384 ! 385 l_log_not_linssh = .FALSE. ! default definition 385 386 ! 386 387 SELECT CASE( ndrg ) -
NEMO/trunk/src/OCE/ZDF/zdfgls.F90
r13546 r13558 815 815 WRITE(numout,*) ' Ice-ocean roughness (used if nn_z0_ice/=0) rn_hsri = ', rn_hsri 816 816 WRITE(numout,*) 817 WRITE(numout,*) ' Namelist namdrg_top/_bot: used values:'818 WRITE(numout,*) ' top ocean cavity roughness (m) rn_z0(_top) = ', r_z0_top819 WRITE(numout,*) ' Bottom seafloor roughness (m) rn_z0(_bot) = ', r_z0_bot820 WRITE(numout,*)821 817 ENDIF 822 818 -
NEMO/trunk/src/OCE/ZDF/zdfphy.F90
r13472 r13558 337 337 ! 338 338 END SUBROUTINE zdf_phy 339 340 339 341 INTEGER FUNCTION zdf_phy_alloc() 340 342 !!---------------------------------------------------------------------- -
NEMO/trunk/src/OCE/ZDF/zdftke.F90
r13530 r13558 678 678 CALL ctl_stop( 'zdf_tke_init: wrong value for nn_eice, should be 0,1,2, or 3') 679 679 END SELECT 680 IF( .NOT.ln_drg_OFF ) THEN681 WRITE(numout,*)682 WRITE(numout,*) ' Namelist namdrg_top/_bot: used values:'683 WRITE(numout,*) ' top ocean cavity roughness (m) rn_z0(_top)= ', r_z0_top684 WRITE(numout,*) ' Bottom seafloor roughness (m) rn_z0(_bot)= ', r_z0_bot685 ENDIF686 680 WRITE(numout,*) 687 681 WRITE(numout,*) ' ==>>> critical Richardson nb with your parameters ri_cri = ', ri_cri -
NEMO/trunk/src/OCE/nemogcm.F90
r13286 r13558 54 54 USE asminc ! assimilation increments 55 55 USE asmbkg ! writing out state trajectory 56 USE diaptr ! poleward transports (dia_ptr_init routine)57 56 USE diadct ! sections transports (dia_dct_init routine) 58 57 USE diaobs ! Observation diagnostics (dia_obs_init routine) … … 472 471 ! ! Lateral physics 473 472 CALL ldf_tra_init ! Lateral ocean tracer physics 474 CALL ldf_eiv_init ! eddy induced velocity param. 473 CALL ldf_eiv_init ! eddy induced velocity param. must be done after ldf_tra_init 475 474 CALL ldf_dyn_init ! Lateral ocean momentum physics 476 475 … … 510 509 CALL flo_init( Nnn ) ! drifting Floats 511 510 IF( ln_diacfl ) CALL dia_cfl_init ! Initialise CFL diagnostics 512 ! CALL dia_ptr_init ! Poleward TRansports initialization513 511 CALL dia_dct_init ! Sections tranports 514 512 CALL dia_hsb_init( Nnn ) ! heat content, salt content and volume budgets -
NEMO/trunk/src/OCE/timing.F90
r13538 r13558 424 424 s_timer => s_timer_root 425 425 DO WHILE ( ASSOCIATED( s_timer%next ) ) 426 IF (.NOT. ASSOCIATED(s_timer%next)) EXIT426 IF (.NOT. ASSOCIATED(s_timer%next)) EXIT 427 427 IF ( s_timer%tsum_clock < s_timer%next%tsum_clock ) THEN 428 428 ALLOCATE(s_wrk) … … 432 432 ll_ord = .FALSE. 433 433 CYCLE 434 ENDIF 435 IF( ASSOCIATED(s_timer%next) ) s_timer => s_timer%next436 END DO 434 ENDIF 435 IF( ASSOCIATED(s_timer%next) ) s_timer => s_timer%next 436 END DO 437 437 IF( ll_ord ) EXIT 438 438 END DO … … 447 447 clfmt = '(1x,a,4x,f12.3,6x,f12.3,x,f12.3,2x,f12.3,6x,f7.3,2x,i9)' 448 448 DO WHILE ( ASSOCIATED(s_timer) ) 449 WRITE(numtime,TRIM(clfmt)) s_timer%cname, & 450 & s_timer%tsum_clock,s_timer%tsum_clock*100./t_elaps(2), & 451 & s_timer%tsum_cpu ,s_timer%tsum_cpu*100./t_cpu(2) , & 452 & s_timer%tsum_cpu/s_timer%tsum_clock, s_timer%niter 449 IF( s_timer%tsum_clock > 0._wp ) & 450 WRITE(numtime,TRIM(clfmt)) s_timer%cname, & 451 & s_timer%tsum_clock,s_timer%tsum_clock*100./t_elaps(2), & 452 & s_timer%tsum_cpu ,s_timer%tsum_cpu*100./t_cpu(2) , & 453 & s_timer%tsum_cpu/s_timer%tsum_clock, s_timer%niter 453 454 s_timer => s_timer%next 454 455 END DO … … 613 614 clfmt = '((A),E15.7,2x,f6.2,5x,f12.2,5x,f6.2,5x,f7.2,2x,f12.2,4x,f6.2,2x,f9.2)' 614 615 DO WHILE ( ASSOCIATED(sl_timer_ave) ) 615 WRITE(numtime,TRIM(clfmt)) sl_timer_ave%cname(1:18), & 616 & sl_timer_ave%tsum_clock,sl_timer_ave%tsum_clock*100.*jpnij/tot_etime, & 617 & sl_timer_ave%tsum_cpu ,sl_timer_ave%tsum_cpu*100.*jpnij/tot_ctime , & 618 & sl_timer_ave%tsum_cpu/sl_timer_ave%tsum_clock, & 619 & sl_timer_ave%tmax_clock*100.*jpnij/tot_etime, & 620 & sl_timer_ave%tmin_clock*100.*jpnij/tot_etime, & 621 & sl_timer_ave%niter/REAL(jpnij) 616 IF( sl_timer_ave%tsum_clock > 0. ) & 617 WRITE(numtime,TRIM(clfmt)) sl_timer_ave%cname(1:18), & 618 & sl_timer_ave%tsum_clock,sl_timer_ave%tsum_clock*100.*jpnij/tot_etime, & 619 & sl_timer_ave%tsum_cpu ,sl_timer_ave%tsum_cpu*100.*jpnij/tot_ctime , & 620 & sl_timer_ave%tsum_cpu/sl_timer_ave%tsum_clock, & 621 & sl_timer_ave%tmax_clock*100.*jpnij/tot_etime, & 622 & sl_timer_ave%tmin_clock*100.*jpnij/tot_etime, & 623 & sl_timer_ave%niter/REAL(jpnij) 622 624 sl_timer_ave => sl_timer_ave%next 623 625 END DO -
NEMO/trunk/src/OFF/nemogcm.F90
r13555 r13558 40 40 USE sbcmod ! surface boundary condition (sbc_init routine) 41 41 USE phycst ! physical constant (par_cst routine) 42 USE zdfphy ! vertical physics manager (zdf_phy_init routine) 42 43 USE dtadyn ! Lecture and Interpolation of the dynamical fields 43 44 USE trcini ! Initilization of the passive tracers … … 49 50 USE trcnam ! passive tracer : namelist 50 51 USE trcrst ! passive tracer restart 51 USE diaptr ! Need to initialise this as some variables are used in if statements later52 52 USE sbc_oce , ONLY : ln_rnf 53 53 USE sbcrnf ! surface boundary condition : runoffs … … 347 347 348 348 CALL sbc_init( Nbb, Nnn, Naa ) ! Forcings : surface module 349 CALL bdy_init ! Open boundaries initialisation 349 CALL bdy_init ! Open boundaries initialisation 350 351 CALL zdf_phy_init( Nnn ) ! Vertical physics 350 352 351 353 ! ! Tracer physics 352 354 CALL ldf_tra_init ! Lateral ocean tracer physics 353 CALL ldf_eiv_init ! Eddy induced velocity param 355 CALL ldf_eiv_init ! Eddy induced velocity param. must be done after ldf_tra_init 354 356 CALL tra_ldf_init ! lateral mixing 355 357 IF( l_ldfslp ) CALL ldf_slp_init ! slope of lateral mixing … … 365 367 CALL dta_dyn_init( Nbb, Nnn, Naa ) ! Initialization for the dynamics 366 368 #endif 367 368 369 CALL trc_init( Nbb, Nnn, Naa ) ! Passive tracers initialization 369 CALL dia_ptr_init ! Poleward TRansports initialization370 370 371 371 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA -
NEMO/trunk/src/SAS/nemogcm.F90
r13555 r13558 378 378 & CALL prt_ctl_init ! Print control 379 379 380 IF( ln_rstart ) CALL rst_read_open 380 381 CALL day_init ! model calendar (using both namelist and restart infos) 381 IF( ln_rstart ) CALL rst_read_open 382 383 ! ! external forcing 382 384 383 #if defined key_agrif 385 384 uu(:,:,:,:) = 0.0_wp ; vv(:,:,:,:) = 0.0_wp ; ts(:,:,:,:,:) = 0.0_wp ! needed for interp done at initialization phase 386 385 #endif 386 ! ! external forcing 387 387 CALL sbc_init( Nbb, Nnn, Naa ) ! Forcings : surface module 388 388 -
NEMO/trunk/src/TOP/trc.F90
r12489 r13558 21 21 INTEGER, PUBLIC :: numonr = -1 !: reference passive tracer namelist output output.namelist.top 22 22 INTEGER, PUBLIC :: numstr !: tracer statistics 23 INTEGER, PUBLIC :: numrtr 23 INTEGER, PUBLIC :: numrtr = -1 !: trc restart (read ) 24 24 INTEGER, PUBLIC :: numrtw !: trc restart ( write ) 25 25 CHARACTER(:), ALLOCATABLE, PUBLIC :: numnat_ref !: character buffer for reference passive tracer namelist_top_ref -
NEMO/trunk/src/TOP/trcrst.F90
r13286 r13558 237 237 ! calculate start time in hours and minutes 238 238 zdayfrac=adatrj-INT(adatrj) 239 ksecs = NINT(zdayfrac*86400) ! Nearest second to catch rounding errors in adatrj 239 ksecs = NINT(zdayfrac*86400) ! Nearest second to catch rounding errors in adatrj 240 240 ihour = INT(ksecs/3600) 241 241 iminute = ksecs/60-ihour*60 … … 258 258 adatrj = INT(adatrj) ! adatrj set to integer as nn_time0 updated 259 259 ELSE 260 ndt05 = NINT( 0.5 * rn_Dt ) ! --- WARNING --- not defined yet are we did not go through day_init 260 261 ! parameters corresponding to nit000 - 1 (as we start the step 261 262 ! loop with a call to day) 262 ndastp = ndate0 - 1! ndate0 read in the namelist in dom_nam263 ndastp = ndate0 ! ndate0 read in the namelist in dom_nam 263 264 nhour = nn_time0 / 100 264 265 nminute = ( nn_time0 - nhour * 100 ) -
NEMO/trunk/tests/CANAL/EXPREF/namelist_cfg
r13476 r13558 316 316 !! !! 317 317 !! namtrd dynamics and/or tracer trends (default: OFF) 318 !! namptr Poleward Transport Diagnostics (default: OFF)319 318 !! namhsb Heat and salt budgets (default: OFF) 320 319 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/CPL_OASIS/EXPREF/namelist_cfg
r13461 r13558 448 448 !! !! 449 449 !! namtrd dynamics and/or tracer trends (default: OFF) 450 !! namptr Poleward Transport Diagnostics (default: OFF)451 450 !! namhsb Heat and salt budgets (default: OFF) 452 451 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg
r13461 r13558 197 197 !! !! 198 198 !! namtrd dynamics and/or tracer trends (default: OFF) 199 !! namptr Poleward Transport Diagnostics (default: OFF)200 199 !! namhsb Heat and salt budgets (default: OFF) 201 200 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg_120pts
r13461 r13558 197 197 !! !! 198 198 !! namtrd dynamics and/or tracer trends (default: OFF) 199 !! namptr Poleward Transport Diagnostics (default: OFF)200 199 !! namhsb Heat and salt budgets (default: OFF) 201 200 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg_240pts
r13461 r13558 197 197 !! !! 198 198 !! namtrd dynamics and/or tracer trends (default: OFF) 199 !! namptr Poleward Transport Diagnostics (default: OFF)200 199 !! namhsb Heat and salt budgets (default: OFF) 201 200 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg_60pts
r13461 r13558 197 197 !! !! 198 198 !! namtrd dynamics and/or tracer trends (default: OFF) 199 !! namptr Poleward Transport Diagnostics (default: OFF)200 199 !! namhsb Heat and salt budgets (default: OFF) 201 200 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/ICE_ADV2D/EXPREF/namelist_cfg
r13461 r13558 197 197 !! !! 198 198 !! namtrd dynamics and/or tracer trends (default: OFF) 199 !! namptr Poleward Transport Diagnostics (default: OFF)200 199 !! namhsb Heat and salt budgets (default: OFF) 201 200 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/ICE_AGRIF/EXPREF/1_namelist_cfg
r13461 r13558 197 197 !! !! 198 198 !! namtrd dynamics and/or tracer trends (default: OFF) 199 !! namptr Poleward Transport Diagnostics (default: OFF)200 199 !! namhsb Heat and salt budgets (default: OFF) 201 200 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/ICE_AGRIF/EXPREF/namelist_cfg
r13461 r13558 197 197 !! !! 198 198 !! namtrd dynamics and/or tracer trends (default: OFF) 199 !! namptr Poleward Transport Diagnostics (default: OFF)200 199 !! namhsb Heat and salt budgets (default: OFF) 201 200 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/ISOMIP+/EXPREF/namelist_cfg
r13476 r13558 461 461 !! !! 462 462 !! namtrd dynamics and/or tracer trends (default: OFF) 463 !! namptr Poleward Transport Diagnostics (default: OFF)464 463 !! namhsb Heat and salt budgets (default: OFF) 465 464 !! namdiu Cool skin and warm layer models (default: OFF) … … 478 477 / 479 478 !----------------------------------------------------------------------- 480 &namptr ! Poleward Transport Diagnostic (default: OFF)481 479 !----------------------------------------------------------------------- 482 480 / -
NEMO/trunk/tests/ISOMIP/EXPREF/namelist_cfg
r13461 r13558 423 423 !! !! 424 424 !! namtrd dynamics and/or tracer trends (default: OFF) 425 !! namptr Poleward Transport Diagnostics (default: OFF)426 425 !! namhsb Heat and salt budgets (default: OFF) 427 426 !! namdiu Cool skin and warm layer models (default: OFF) … … 438 437 / 439 438 !----------------------------------------------------------------------- 440 &namptr ! Poleward Transport Diagnostic (default: OFF)441 439 !----------------------------------------------------------------------- 442 440 / -
NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_flux_ubs_cfg
r13476 r13558 271 271 !! !! 272 272 !! namtrd dynamics and/or tracer trends (default: OFF) 273 !! namptr Poleward Transport Diagnostics (default: OFF)274 273 !! namhsb Heat and salt budgets (default: OFF) 275 274 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_sco_FCT2_flux_cen-ahm1000_cfg
r13476 r13558 21 21 nn_it000 = 1 ! first time step 22 22 nn_itend = 6120 ! here 17h of simulation (=6120 time-step) 23 !nn_itend = 5760 ! here 16h of simulation (=5760 time-step) abort after 5802 for zps: pb of physics conditions24 23 nn_istate = 0 ! output the initial state (1) or not (0) 25 24 nn_stock = 6120 ! frequency of creation of a restart file (modulo referenced to 1) -
NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_sco_FCT2_flux_ubs_cfg
r13476 r13558 21 21 nn_it000 = 1 ! first time step 22 22 nn_itend = 6120 ! here 17h of simulation (=6120 time-step) 23 !nn_itend = 5760 ! here 16h of simulation (=5760 time-step) abort after 5802 for zps: pb of physics conditions24 23 nn_istate = 0 ! output the initial state (1) or not (0) 25 24 nn_stock = 1080 ! frequency of creation of a restart file (modulo referenced to 1) -
NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_sco_FCT4_flux_cen-ahm1000_cfg
r13476 r13558 21 21 nn_it000 = 1 ! first time step 22 22 nn_itend = 6120 ! here 17h of simulation (=6120 time-step) 23 !nn_itend = 5760 ! here 16h of simulation (=5760 time-step) abort after 5802 for zps: pb of physics conditions24 23 nn_istate = 0 ! output the initial state (1) or not (0) 25 24 nn_stock = 6120 ! frequency of creation of a restart file (modulo referenced to 1) -
NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_sco_FCT4_flux_ubs_cfg
r13476 r13558 21 21 nn_it000 = 1 ! first time step 22 22 nn_itend = 6120 ! here 17h of simulation (=6120 time-step) 23 !nn_itend = 5760 ! here 16h of simulation (=5760 time-step) abort after 5802 for zps: pb of physics conditions24 23 nn_istate = 0 ! output the initial state (1) or not (0) 25 24 nn_stock = 1080 ! frequency of creation of a restart file (modulo referenced to 1) -
NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_zps_FCT2_flux_ubs_cfg
r13476 r13558 20 20 cn_exp = "OVF_zps_FCT2_flux_ubs" ! experience name 21 21 nn_it000 = 1 ! first time step 22 !nn_itend = 6120 ! here 17h of simulation (=6120 time-step)23 22 nn_itend = 5760 ! here 16h of simulation (=5760 time-step) abort after 5802 for zps: pb of physics conditions 24 23 nn_istate = 0 ! output the initial state (1) or not (0) -
NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_zps_FCT4_flux_ubs_cfg
r13476 r13558 289 289 !! !! 290 290 !! namtrd dynamics and/or tracer trends (default: OFF) 291 !! namptr Poleward Transport Diagnostics (default: OFF)292 291 !! namhsb Heat and salt budgets (default: OFF) 293 292 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_zps_FCT4_vect_een_cfg
r13476 r13558 20 20 cn_exp = "OVF_zps_FCT4_vect_een" ! experience name 21 21 nn_it000 = 1 ! first time step 22 !nn_itend = 6120 ! here 17h of simulation (=6120 time-step)23 22 nn_itend = 5760 ! here 16h of simulation (=5760 time-step) abort after 5802 for zps: pb of physics conditions 24 23 nn_istate = 0 ! output the initial state (1) or not (0) -
NEMO/trunk/tests/STATION_ASF/EXPREF/namelist_coare3p6-noskin_cfg
r13461 r13558 250 250 !! !! 251 251 !! namtrd dynamics and/or tracer trends (default: OFF) 252 !! namptr Poleward Transport Diagnostics (default: OFF)253 252 !! namhsb Heat and salt budgets (default: OFF) 254 253 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/STATION_ASF/EXPREF/namelist_coare3p6_cfg
r13461 r13558 250 250 !! !! 251 251 !! namtrd dynamics and/or tracer trends (default: OFF) 252 !! namptr Poleward Transport Diagnostics (default: OFF)253 252 !! namhsb Heat and salt budgets (default: OFF) 254 253 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/STATION_ASF/EXPREF/namelist_ecmwf-noskin_cfg
r13461 r13558 250 250 !! !! 251 251 !! namtrd dynamics and/or tracer trends (default: OFF) 252 !! namptr Poleward Transport Diagnostics (default: OFF)253 252 !! namhsb Heat and salt budgets (default: OFF) 254 253 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/STATION_ASF/EXPREF/namelist_ecmwf_cfg
r13461 r13558 250 250 !! !! 251 251 !! namtrd dynamics and/or tracer trends (default: OFF) 252 !! namptr Poleward Transport Diagnostics (default: OFF)253 252 !! namhsb Heat and salt budgets (default: OFF) 254 253 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/STATION_ASF/EXPREF/namelist_ncar_cfg
r13461 r13558 250 250 !! !! 251 251 !! namtrd dynamics and/or tracer trends (default: OFF) 252 !! namptr Poleward Transport Diagnostics (default: OFF)253 252 !! namhsb Heat and salt budgets (default: OFF) 254 253 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/VORTEX/EXPREF/1_namelist_cfg
r13476 r13558 266 266 !! !! 267 267 !! namtrd dynamics and/or tracer trends (default: OFF) 268 !! namptr Poleward Transport Diagnostics (default: OFF)269 268 !! namhsb Heat and salt budgets (default: OFF) 270 269 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/VORTEX/EXPREF/namelist_cfg
r13476 r13558 259 259 !! !! 260 260 !! namtrd dynamics and/or tracer trends (default: OFF) 261 !! namptr Poleward Transport Diagnostics (default: OFF)262 261 !! namhsb Heat and salt budgets (default: OFF) 263 262 !! namdiu Cool skin and warm layer models (default: OFF) -
NEMO/trunk/tests/WAD/EXPREF/namelist_cfg
r13476 r13558 417 417 !! !! 418 418 !! namtrd dynamics and/or tracer trends (default: OFF) 419 !! namptr Poleward Transport Diagnostics (default: OFF)420 419 !! namhsb Heat and salt budgets (default: OFF) 421 420 !! namdiu Cool skin and warm layer models (default: OFF)
Note: See TracChangeset
for help on using the changeset viewer.