- Timestamp:
- 2015-06-16T06:16:43+02:00 (9 years ago)
- Location:
- branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 3 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r5422 r5427 44 44 USE in_out_manager ! I/O manager 45 45 USE diadimg ! dimg direct access file format output 46 USE diatmb ! Top,middle,bottom output 47 USE dia25h ! 25h Mean output 46 48 USE iom 47 49 USE ioipsl … … 333 335 CALL wrk_dealloc( jpi , jpj, jpk , z3d ) 334 336 ! 337 ! If we want tmb values 338 339 IF (ln_diatmb) THEN 340 CALL dia_tmb 341 ENDIF 342 IF (ln_dia25h) THEN 343 CALL dia_25h( kt ) 344 ENDIF 345 335 346 IF( nn_timing == 1 ) CALL timing_stop('dia_wri') 336 347 ! -
branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r5422 r5427 41 41 USE timing ! Timing 42 42 USE sbcapr ! surface boundary condition: atmospheric pressure 43 USE diatmb ! Top,middle,bottom output 43 44 USE dynadv, ONLY: ln_dynadv_vec 44 45 #if defined key_agrif … … 48 49 USE asminc ! Assimilation increment 49 50 #endif 51 50 52 51 53 IMPLICIT NONE … … 144 146 INTEGER :: ji, jj, jk, jn ! dummy loop indices 145 147 INTEGER :: ikbu, ikbv, noffset ! local integers 148 REAL(wp) :: zmdi 146 149 REAL(wp) :: zraur, z1_2dt_b, z2dt_bf ! local scalars 147 150 REAL(wp) :: zx1, zy1, zx2, zy2 ! - - … … 169 172 CALL wrk_alloc( jpi, jpj, zhf ) 170 173 ! 174 zmdi=1.e+20 ! missing data indicator for masking 171 175 ! !* Local constant initialization 172 176 z1_12 = 1._wp / 12._wp … … 928 932 CALL wrk_dealloc( jpi, jpj, zhf ) 929 933 ! 934 IF ( ln_diatmb ) THEN 935 CALL iom_put( "baro_u" , un_b*umask(:,:,1)+zmdi*(1-umask(:,:,1 ) ) ) ! Barotropic U Velocity 936 CALL iom_put( "baro_v" , vn_b*vmask(:,:,1)+zmdi*(1-vmask(:,:,1 ) ) ) ! Barotropic V Velocity 937 ENDIF 930 938 IF( nn_timing == 1 ) CALL timing_stop('dyn_spg_ts') 931 939 ! -
branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r5422 r5427 82 82 USE crsini ! initialise grid coarsening utility 83 83 USE lbcnfd, ONLY: isendto, nsndto, nfsloop, nfeloop ! Setup of north fold exchanges 84 USE diatmb ! Top,middle,bottom output 85 USE dia25h ! 25h mean output 84 86 85 87 IMPLICIT NONE … … 452 454 IF( lk_asminc ) CALL asm_inc_init ! Initialize assimilation increments 453 455 IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 456 CALL dia_tmb_init ! TMB outputs 457 CALL dia_25h_init ! 25h mean outputs 458 454 459 ! 455 460 END SUBROUTINE nemo_init … … 607 612 USE ldftra_oce, ONLY: ldftra_oce_alloc 608 613 USE trc_oce , ONLY: trc_oce_alloc 614 USE diainsitutem, ONLY: insitu_tem_alloc 609 615 #if defined key_diadct 610 616 USE diadct , ONLY: diadct_alloc … … 623 629 ierr = ierr + ldftra_oce_alloc() ! ocean lateral physics : tracers 624 630 ierr = ierr + zdf_oce_alloc () ! ocean vertical physics 631 ierr = ierr + insitu_tem_alloc() 625 632 ! 626 633 ierr = ierr + trc_oce_alloc () ! shared TRC / TRA arrays
Note: See TracChangeset
for help on using the changeset viewer.