- Timestamp:
- 2016-10-26T14:37:32+02:00 (7 years ago)
- Location:
- branches/UKMO/r5936_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 3 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/r5936_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r5930 r7104 43 43 USE in_out_manager ! I/O manager 44 44 USE diadimg ! dimg direct access file format output 45 USE diatmb ! Top,middle,bottom output 46 USE dia25h ! 25h Mean output 45 47 USE iom 46 48 USE ioipsl … … 379 381 CALL wrk_dealloc( jpi , jpj , z2d ) 380 382 CALL wrk_dealloc( jpi , jpj, jpk , z3d ) 383 ! If we want tmb values 384 385 IF (ln_diatmb) THEN 386 CALL dia_tmb 387 ENDIF 388 IF (ln_dia25h) THEN 389 CALL dia_25h( kt ) 390 ENDIF 391 381 392 ! 382 393 IF( nn_timing == 1 ) CALL timing_stop('dia_wri') -
branches/UKMO/r5936_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r5930 r7104 40 40 USE timing ! Timing 41 41 USE sbcapr ! surface boundary condition: atmospheric pressure 42 USE diatmb ! Top,middle,bottom output 42 43 USE dynadv, ONLY: ln_dynadv_vec 43 44 #if defined key_agrif … … 145 146 INTEGER :: ji, jj, jk, jn ! dummy loop indices 146 147 INTEGER :: ikbu, ikbv, noffset ! local integers 148 REAL(wp) :: zmdi 147 149 REAL(wp) :: zraur, z1_2dt_b, z2dt_bf ! local scalars 148 150 REAL(wp) :: zx1, zy1, zx2, zy2 ! - - … … 170 172 CALL wrk_alloc( jpi, jpj, zhf ) 171 173 ! 174 zmdi=1.e+20 ! missing data indicator for masking 172 175 ! !* Local constant initialization 173 176 z1_12 = 1._wp / 12._wp … … 920 923 CALL wrk_dealloc( jpi, jpj, zhf ) 921 924 ! 925 IF ( ln_diatmb ) THEN 926 CALL iom_put( "baro_u" , un_b*umask(:,:,1)+zmdi*(1-umask(:,:,1 ) ) ) ! Barotropic U Velocity 927 CALL iom_put( "baro_v" , vn_b*vmask(:,:,1)+zmdi*(1-vmask(:,:,1 ) ) ) ! Barotropic V Velocity 928 ENDIF 922 929 IF( nn_timing == 1 ) CALL timing_stop('dyn_spg_ts') 923 930 ! -
branches/UKMO/r5936_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r5836 r7104 84 84 USE crsini ! initialise grid coarsening utility 85 85 USE lbcnfd , ONLY : isendto, nsndto, nfsloop, nfeloop ! Setup of north fold exchanges 86 USE diatmb ! Top,middle,bottom output 87 USE dia25h ! 25h mean output 86 88 USE sbc_oce, ONLY : lk_oasis 87 89 USE stopar … … 470 472 IF( lk_asminc ) CALL asm_inc_init ! Initialize assimilation increments 471 473 IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 474 CALL dia_tmb_init ! TMB outputs 475 CALL dia_25h_init ! 25h mean outputs 472 476 ! 473 477 END SUBROUTINE nemo_init … … 622 626 USE dom_oce , ONLY: dom_oce_alloc 623 627 USE trc_oce , ONLY: trc_oce_alloc 628 USE diainsitutem, ONLY: insitu_tem_alloc 624 629 #if defined key_diadct 625 630 USE diadct , ONLY: diadct_alloc … … 636 641 ierr = ierr + dom_oce_alloc () ! ocean domain 637 642 ierr = ierr + zdf_oce_alloc () ! ocean vertical physics 643 ierr = ierr + insitu_tem_alloc() 638 644 ! 639 645 ierr = ierr + trc_oce_alloc () ! shared TRC / TRA arrays
Note: See TracChangeset
for help on using the changeset viewer.