New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10928 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2019-05-03T17:44:56+02:00 (5 years ago)
Author:
davestorkey
Message:

2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps : Finish converting DYN module, including some updates to previously processed modules, but excluding dynnxt.F90 (which needs to be completely rewritten) and wet_dry.F90 - I need to talk to Enda about this.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/nemogcm.F90

    r10927 r10928  
    428428      !                             
    429429      IF( ln_diurnal_only ) THEN                   ! diurnal only: a subset of the initialisation routines 
    430          CALL  istate_init( Nbb, Nnn )                ! ocean initial state (Dynamics and tracers) 
     430         CALL  istate_init( Nbb, Nnn, Naa )           ! ocean initial state (Dynamics and tracers) 
    431431         CALL     sbc_init( Nbb, Nnn )                ! Forcings : surface module 
    432432         CALL tra_qsr_init                            ! penetrative solar radiation qsr 
     
    440440      ENDIF 
    441441       
    442                            CALL  istate_init( Nbb, Nnn ) ! ocean initial state (Dynamics and tracers) 
     442                           CALL  istate_init( Nbb, Nnn, Naa )    ! ocean initial state (Dynamics and tracers) 
    443443 
    444444      !                                      ! external forcing  
     
    464464 
    465465      !                                      ! Dynamics 
    466       IF( lk_c1d       )   CALL dyn_dmp_init      ! internal momentum damping 
    467                            CALL dyn_adv_init      ! advection (vector or flux form) 
    468                            CALL dyn_vor_init      ! vorticity term including Coriolis 
    469                            CALL dyn_ldf_init      ! lateral mixing 
    470                            CALL dyn_hpg_init      ! horizontal gradient of Hydrostatic pressure 
    471                            CALL dyn_spg_init      ! surface pressure gradient 
     466      IF( lk_c1d       )   CALL dyn_dmp_init         ! internal momentum damping 
     467                           CALL dyn_adv_init         ! advection (vector or flux form) 
     468                           CALL dyn_vor_init         ! vorticity term including Coriolis 
     469                           CALL dyn_ldf_init         ! lateral mixing 
     470                           CALL dyn_hpg_init( Nnn )  ! horizontal gradient of Hydrostatic pressure 
     471                           CALL dyn_spg_init         ! surface pressure gradient 
    472472 
    473473#if defined key_top 
Note: See TracChangeset for help on using the changeset viewer.