Changeset 5427


Ignore:
Timestamp:
2015-06-16T06:16:43+02:00 (5 years ago)
Author:
deazer
Message:

Added back in basic shelf seas diagnostics after removal of svn keywords.
Builds, extracts and mereges and runs as expected from working copy

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  
    4444   USE in_out_manager  ! I/O manager 
    4545   USE diadimg         ! dimg direct access file format output 
     46   USE diatmb          ! Top,middle,bottom output 
     47   USE dia25h          ! 25h Mean output 
    4648   USE iom 
    4749   USE ioipsl 
     
    333335      CALL wrk_dealloc( jpi , jpj, jpk , z3d ) 
    334336      ! 
     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 
    335346      IF( nn_timing == 1 )   CALL timing_stop('dia_wri') 
    336347      ! 
  • branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r5422 r5427  
    4141   USE timing          ! Timing     
    4242   USE sbcapr          ! surface boundary condition: atmospheric pressure 
     43   USE diatmb          ! Top,middle,bottom output 
    4344   USE dynadv, ONLY: ln_dynadv_vec 
    4445#if defined key_agrif 
     
    4849   USE asminc          ! Assimilation increment 
    4950#endif 
     51 
    5052 
    5153   IMPLICIT NONE 
     
    144146      INTEGER  ::   ji, jj, jk, jn        ! dummy loop indices 
    145147      INTEGER  ::   ikbu, ikbv, noffset      ! local integers 
     148      REAL(wp) ::   zmdi 
    146149      REAL(wp) ::   zraur, z1_2dt_b, z2dt_bf    ! local scalars 
    147150      REAL(wp) ::   zx1, zy1, zx2, zy2         !   -      - 
     
    169172      CALL wrk_alloc( jpi, jpj, zhf ) 
    170173      ! 
     174      zmdi=1.e+20                               !  missing data indicator for masking 
    171175      !                                         !* Local constant initialization 
    172176      z1_12 = 1._wp / 12._wp  
     
    928932      CALL wrk_dealloc( jpi, jpj, zhf ) 
    929933      ! 
     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 
    930938      IF( nn_timing == 1 )  CALL timing_stop('dyn_spg_ts') 
    931939      ! 
  • branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r5422 r5427  
    8282   USE crsini          ! initialise grid coarsening utility 
    8383   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 
    8486 
    8587   IMPLICIT NONE 
     
    452454      IF( lk_asminc     )   CALL asm_inc_init   ! Initialize assimilation increments 
    453455      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 
    454459      ! 
    455460   END SUBROUTINE nemo_init 
     
    607612      USE ldftra_oce, ONLY: ldftra_oce_alloc 
    608613      USE trc_oce   , ONLY: trc_oce_alloc 
     614      USE diainsitutem, ONLY: insitu_tem_alloc 
    609615#if defined key_diadct  
    610616      USE diadct    , ONLY: diadct_alloc  
     
    623629      ierr = ierr + ldftra_oce_alloc()          ! ocean lateral  physics : tracers 
    624630      ierr = ierr + zdf_oce_alloc   ()          ! ocean vertical physics 
     631      ierr = ierr + insitu_tem_alloc() 
    625632      ! 
    626633      ierr = ierr + trc_oce_alloc   ()          ! shared TRC / TRA arrays 
Note: See TracChangeset for help on using the changeset viewer.