Changeset 1200 for trunk/NEMO/OPA_SRC/SBC/sbcssr.F90
- Timestamp:
- 2008-09-24T15:05:20+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcssr.F90
r1156 r1200 111 111 CALL ctl_stop( 'sbc_ssr: unable to allocate sf_sst structure' ) ; RETURN 112 112 ENDIF 113 ALLOCATE( sf_sst(1)%fnow(jpi,jpj) ) 114 ALLOCATE( sf_sst(1)%fdta(jpi,jpj,2) ) 115 113 116 ! fill sf_sst with sn_sst and control print 114 117 CALL fld_fill( sf_sst, (/ sn_sst /), cn_dir, 'sbc_ssr', 'SST restoring term toward SST data', 'namsbc_ssr' ) … … 122 125 CALL ctl_stop( 'sbc_ssr: unable to allocate sf_sss structure' ) ; RETURN 123 126 ENDIF 127 ALLOCATE( sf_sss(1)%fnow(jpi,jpj) ) 128 ALLOCATE( sf_sss(1)%fdta(jpi,jpj,2) ) 129 124 130 ! fill sf_sss with sn_sss and control print 125 131 CALL fld_fill( sf_sss, (/ sn_sss /), cn_dir, 'sbc_ssr', 'SSS restoring term toward SSS data', 'namsbc_ssr' )
Note: See TracChangeset
for help on using the changeset viewer.