Changeset 1200 for trunk/NEMO/OPA_SRC/SBC/sbcssr.F90

Timestamp:

2008-09-24T15:05:20+02:00 (16 years ago)

Author:

rblod

Message:

Adapt Agrif to the new SBC and correct several bugs for agrif (restart writing and reading), see ticket #133
Note : this fix does not work yet on NEC computerq (sxf90/360)

File:

• trunk/NEMO/OPA_SRC/SBC/sbcssr.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcssr.F90

@@ -111 +111 @@
                CALL ctl_stop( 'sbc_ssr: unable to allocate sf_sst structure' )   ;   RETURN
             ENDIF
+            ALLOCATE( sf_sst(1)%fnow(jpi,jpj) )
+            ALLOCATE( sf_sst(1)%fdta(jpi,jpj,2) )
+
             ! fill sf_sst with sn_sst and control print
             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
             ENDIF
+            ALLOCATE( sf_sss(1)%fnow(jpi,jpj) )
+            ALLOCATE( sf_sss(1)%fdta(jpi,jpj,2) )
+
             ! fill sf_sss with sn_sss and control print
             CALL fld_fill( sf_sss, (/ sn_sss /), cn_dir, 'sbc_ssr', 'SSS restoring term toward SSS data', 'namsbc_ssr' )