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 6010 for branches/2015/dev_MetOffice_merge_2015/NEMOGCM/NEMO/OPA_SRC/DIU/cool_skin.F90 – NEMO

Ignore:
Timestamp:
2015-12-07T14:32:39+01:00 (8 years ago)
Author:
timgraham
Message:

Tidying of DIU code

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/dev_MetOffice_merge_2015/NEMOGCM/NEMO/OPA_SRC/DIU/cool_skin.F90

    r5676 r6010  
    9494      
    9595      INTEGER :: ji,jj 
    96        
     96      
     97      IF ( .NOT. ln_blk_core ) THEN 
     98         CALL ctl_stop("cool_skin.f90: diurnal flux processing only implemented"//& 
     99         &             " for core bulk forcing") 
     100      ENDIF 
     101  
    97102      DO jj = 1,jpj 
    98103         DO ji = 1,jpi 
Note: See TracChangeset for help on using the changeset viewer.