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 9249 for branches/NERC/dev_r5518_GO6_Carb_Fail_from_GO6_9163/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90 – NEMO

Ignore:
Timestamp:
2018-01-16T17:51:54+01:00 (6 years ago)
Author:
jpalmier
Message:

debug 2

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_Carb_Fail_from_GO6_9163/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r9247 r9249  
    9191      USE lib_mpp,                    ONLY: mpp_max, mpp_maxloc,            &  
    9292                                            mpp_min, mpp_minloc,            & 
    93                                             ctl_stop, ctl_warn  
     93                                            ctl_stop, ctl_warn, lk_mpp  
    9494      USE oce,                        ONLY: tsb, tsn 
    9595      USE par_kind,                   ONLY: wp 
     
    803803          WRITE(numout,*) '----------------------------------------------------------------------' 
    804804          WRITE(numout,*) ' ' 
     805      ENDIF 
     806 
    8058079100  FORMAT('Row:', i1, '  ', e16.6, ' ', e16.6, ' ', e16.6) 
    8068089200  FORMAT(e16.6) 
Note: See TracChangeset for help on using the changeset viewer.