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 6545 for branches/UKMO/dev_r5518_MO_couple_package/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 – NEMO

Ignore:
Timestamp:
2016-05-17T12:35:16+02:00 (7 years ago)
Author:
frrh
Message:

Apply relevant changes by hand from
fcm:NEMO.xm/branches/UKMO/dev_r5107_hadgem3_mct revisions 5569 to 6355 inclusive
since svn merge DOES NOT WORK!

Note the presence in the NEMO code of key_oamct_v3 which, one assumes is for
specific use with OASIS3-MCT version 3... i.e. there are syntax changes in
OASIS calls to be dealt with! We must remember to deal with this when upgrading to
OASIS3-MCT vn3.0 then!

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_MO_couple_package/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r6544 r6545  
    37853785100   CONTINUE 
    37863786      IF( iost /= 0 ) THEN 
    3787          IF(ldwp) THEN 
    3788             WRITE(kout,*) 
    3789             WRITE(kout,*) ' ===>>>> : bad opening file: ', clfile 
    3790             WRITE(kout,*) ' =======   ===  ' 
    3791             WRITE(kout,*) '           unit   = ', knum 
    3792             WRITE(kout,*) '           status = ', cdstat 
    3793             WRITE(kout,*) '           form   = ', cdform 
    3794             WRITE(kout,*) '           access = ', cdacce 
    3795             WRITE(kout,*) '           iostat = ', iost 
    3796             WRITE(kout,*) '           we stop. verify the file ' 
    3797             WRITE(kout,*) 
    3798          ENDIF 
    3799          STOP 'ctl_opn bad opening' 
     3787         ! If the run is about to fail we ALWAYS want to know 
     3788         ! the full details! This must not be hidden behind 
     3789         ! "IF(ldwp)" or other irrelevant conditional tests. 
     3790         WRITE(kout,*) 
     3791         WRITE(kout,*) ' ===>>>> : bad opening file: ', clfile 
     3792         WRITE(kout,*) ' =======   ===  ' 
     3793         WRITE(kout,*) '           unit   = ', knum 
     3794         WRITE(kout,*) '           status = ', cdstat 
     3795         WRITE(kout,*) '           form   = ', cdform 
     3796         WRITE(kout,*) '           access = ', cdacce 
     3797         WRITE(kout,*) '           iostat = ', iost 
     3798         WRITE(kout,*) '           we stop. verify the file ' 
     3799         WRITE(kout,*) 
     3800         
     3801         CALL ctl_stop ('STOP', 'NEMO abort ctl_opn bad opening') 
    38003802      ENDIF 
    38013803 
Note: See TracChangeset for help on using the changeset viewer.