Skip to content

Commit 90f42d4

Browse files
dustinswalesdustinswales
committed
Omission from previous commit. Some of the modified lines were grater than 132 characters.
1 parent 53a0ebd commit 90f42d4

File tree

1 file changed

+22
-11
lines changed

1 file changed

+22
-11
lines changed

‎src/cosp.F90‎

Lines changed: 22 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1539,12 +1539,14 @@ subroutine cosp_errorCheck(cospgridIN, cospIN, Lisccp_subcolumn, Lisccp_column,
15391539
endif
15401540
if (.not. allocated(cospIN%betatot_liq)) then
15411541
nError=nError+1
1542-
errorMessage(nError) = 'ERROR: COSP input variable (Calipso Lidar simulator): cospgridIN%betatot_liq has not been allocated'
1542+
errorMessage(nError) = 'ERROR: COSP input variable (Calipso Lidar simulator):'//&
1543+
' cospgridIN%betatot_liq has not been allocated'
15431544
alloc_status = .false.
15441545
endif
15451546
if (.not. allocated(cospIN%betatot_ice)) then
15461547
nError=nError+1
1547-
errorMessage(nError) = 'ERROR: COSP input variable (Calipso Lidar simulator): cospgridIN%betatot_ice has not been allocated'
1548+
errorMessage(nError) = 'ERROR: COSP input variable (Calipso Lidar simulator):'//&
1549+
' cospgridIN%betatot_ice has not been allocated'
15481550
alloc_status = .false.
15491551
endif
15501552
if (.not. allocated(cospIN%tau_mol)) then
@@ -1559,12 +1561,14 @@ subroutine cosp_errorCheck(cospgridIN, cospIN, Lisccp_subcolumn, Lisccp_column,
15591561
endif
15601562
if (.not. allocated(cospIN%tautot_liq)) then
15611563
nError=nError+1
1562-
errorMessage(nError) = 'ERROR: COSP input variable (Calipso Lidar simulator): cospgridIN%tautot_liq has not been allocated'
1564+
errorMessage(nError) = 'ERROR: COSP input variable (Calipso Lidar simulator):'//&
1565+
' cospgridIN%tautot_liq has not been allocated'
15631566
alloc_status = .false.
15641567
endif
15651568
if (.not. allocated(cospIN%tautot_ice)) then
15661569
nError=nError+1
1567-
errorMessage(nError) = 'ERROR: COSP input variable (Calipso Lidar simulator): cospgridIN%tautot_ice has not been allocated'
1570+
errorMessage(nError) = 'ERROR: COSP input variable (Calipso Lidar simulator):'//&
1571+
' cospgridIN%tautot_ice has not been allocated'
15681572
alloc_status = .false.
15691573
endif
15701574
if (.not. alloc_status) then
@@ -1594,12 +1598,14 @@ subroutine cosp_errorCheck(cospgridIN, cospIN, Lisccp_subcolumn, Lisccp_column,
15941598
alloc_status = .true.
15951599
if (.not. allocated(cospgridIN%hgt_matrix)) then
15961600
nError=nError+1
1597-
errorMessage(nError) = 'ERROR: COSP input variable (Calipso Lidar simulator): cospgridIN%hgt_matrix has not been allocated'
1601+
errorMessage(nError) = 'ERROR: COSP input variable (Calipso Lidar simulator):'//&
1602+
' cospgridIN%hgt_matrix has not been allocated'
15981603
alloc_status = .false.
15991604
endif
16001605
if (.not. allocated(cospgridIN%hgt_matrix_half)) then
16011606
nError=nError+1
1602-
errorMessage(nError) = 'ERROR: COSP input variable (Calipso Lidar simulator): cospgridIN%hgt_matrix_half has not been allocated'
1607+
errorMessage(nError) = 'ERROR: COSP input variable (Calipso Lidar simulator):'//&
1608+
' cospgridIN%hgt_matrix_half has not been allocated'
16031609
alloc_status = .false.
16041610
endif
16051611
if (.not. allocated(cospgridIN%at)) then
@@ -1670,22 +1676,26 @@ subroutine cosp_errorCheck(cospgridIN, cospIN, Lisccp_subcolumn, Lisccp_column,
16701676
alloc_status = .true.
16711677
if (.not. allocated(cospIN%z_vol_cloudsat)) then
16721678
nError=nError+1
1673-
errorMessage(nError) = 'ERROR: COSP input variable (Cloudsat radar simulator): cospIN%z_vol_cloudsat has not been allocated'
1679+
errorMessage(nError) = 'ERROR: COSP input variable (Cloudsat radar simulator):'//&
1680+
' cospIN%z_vol_cloudsat has not been allocated'
16741681
alloc_status = .false.
16751682
endif
16761683
if (.not. allocated(cospIN%kr_vol_cloudsat)) then
16771684
nError=nError+1
1678-
errorMessage(nError) = 'ERROR: COSP input variable (Cloudsat radar simulator): cospIN%kr_vol_cloudsat has not been allocated'
1685+
errorMessage(nError) = 'ERROR: COSP input variable (Cloudsat radar simulator):'//&
1686+
' cospIN%kr_vol_cloudsat has not been allocated'
16791687
alloc_status = .false.
16801688
endif
16811689
if (.not. allocated(cospIN%g_vol_cloudsat)) then
16821690
nError=nError+1
1683-
errorMessage(nError) = 'ERROR: COSP input variable (Cloudsat radar simulator): cospIN%g_vol_cloudsat has not been allocated'
1691+
errorMessage(nError) = 'ERROR: COSP input variable (Cloudsat radar simulator):'//&
1692+
' cospIN%g_vol_cloudsat has not been allocated'
16841693
alloc_status = .false.
16851694
endif
16861695
if (.not. allocated(cospgridIN%hgt_matrix)) then
16871696
nError=nError+1
1688-
errorMessage(nError) = 'ERROR: COSP input variable (Cloudsat radar simulator): cospgridIN%hgt_matrix has not been allocated'
1697+
errorMessage(nError) = 'ERROR: COSP input variable (Cloudsat radar simulator):'//&
1698+
' cospgridIN%hgt_matrix has not been allocated'
16891699
alloc_status = .false.
16901700
endif
16911701
if (.not. alloc_status) then
@@ -1708,7 +1718,8 @@ subroutine cosp_errorCheck(cospgridIN, cospIN, Lisccp_subcolumn, Lisccp_column,
17081718
alloc_status = .true.
17091719
if (.not. allocated(cospgridIN%hgt_matrix_half)) then
17101720
nError=nError+1
1711-
errorMessage(nError) = 'ERROR: COSP input variable (Cloudsat radar simulator): cospgridIN%hgt_matrix_half has not been allocated'
1721+
errorMessage(nError) = 'ERROR: COSP input variable (Cloudsat radar simulator):'//&
1722+
' cospgridIN%hgt_matrix_half has not been allocated'
17121723
alloc_status = .false.
17131724
endif
17141725
if (.not. alloc_status) then

0 commit comments

Comments
 (0)