Changeset 7703


Ignore:
Timestamp:
2017-02-20T13:00:57+01:00 (4 years ago)
Author:
marc
Message:

Marc 20/2/17. Fix two bugs.

Location:
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/AGE/par_age.F90

    r6734 r7703  
    77   !!---------------------------------------------------------------------- 
    88   !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
    9    !! $Id$  
     9   !! $Id$ 
    1010   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    1111   !!---------------------------------------------------------------------- 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/AGE/trcini_age.F90

    r6715 r7703  
    2323   !!---------------------------------------------------------------------- 
    2424   !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
    25    !! $Id$  
     25   !! $Id$ 
    2626   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    2727   !!---------------------------------------------------------------------- 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r7497 r7703  
    15471547               zalk = max(0.,trn(ji,jj,jk,jpalk)) !! alkalinity 
    15481548               zoxy = max(0.,trn(ji,jj,jk,jpoxy)) !! oxygen 
     1549#  if defined key_axy_carbchem && defined key_mocsy 
     1550               zpho = max(0.,trn(ji,jj,jk,jpdin)) / 16.0 !! phosphate via DIN and Redfield 
     1551#  endif 
    15491552               !! 
    15501553               !! also need physical parameters for gas exchange calculations 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trc.F90

    r7331 r7703  
    267267 
    268268      IF( trc_alloc /= 0 )   CALL ctl_warn('trc_alloc: failed to allocate arrays') 
     269 
     270      ! It is known that not intialising SBC_TRC can introduce NaNs 
     271      sbc_trc(:,:,:) = 0.0 
     272 
    269273      ! 
    270274   END FUNCTION trc_alloc 
Note: See TracChangeset for help on using the changeset viewer.