Ignore:
Timestamp:
2015-12-07T14:32:39+01:00 (5 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.